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MEMORANDUM  FOR  DISTRIBUTION 

Subj:  Center  for  Naval  Analyses  Research  Contribution 

Enel:  (1)  CRC  358,  "The  Enlisted  Requirements  Planner 
(ENREP),”  by  Diane  W.  Schulte,  October  1978 

1.  Enclosure  (1)  Is  forwarded  as  a  matter  of  possible 
Interest. 

2.  This  Research  Contribution  describes  an  Enlisted 
Requirements  Planner  (ENREP)  that  projects  Navy  enlisted 
requirements  by  rating  and  paygrade,  and  by  rating  and 
length  of  service,  for  up  to  15  years.  The  projection 
responds  to  changes  in  the  numbers  of  ship  and  aircraft 
forces  and  their  manning  and  support  levels.  ENREP  should 
be  of  interest  to  resource  managers,  manpower  planners, 
and  program  planners. 

3.  Research  Contributions  are  distributed  for  their 
potential  value  in  other  studies  and  analyses.  They  do 
not  necessarily  represent  the  opinion  of  the  Department 
of  the  Navy. 
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PREFACE 


The  Enlisted  Requirements  Planner  (ENREP)  projects  Navy  enlisted  requirements  by 
rating  and  paygrade,  and  by  rating  and  length  of  service,  for  up  to  fifteen  years.  The 
ENREP  projection  is  responsive  to  changes  in  the  numbers  of  ship  and  aircraft  forces 
and  their  manning  and  support  levels.  ENREP  can  be  useful  to  a  resource  manager  who 
needs  to  know  such  things  as  the  effect  on  enlisted  requirements  of  adding  an  aircraft 
carrier  or  of  increased  manning  on  strategic  submarines,  ENREP  is  also  used  to  set 
manpower  goals  for  the  PROPHET  system  for  projection  of  inventories  (CNA  Research 
Contribution  346).  And  because  of  the  extended  time  span,  ENREP  can  be  used  for 
long-range  planning  such  as  the  Extended  Planning  Annex  (EPA)  to  the  Program  Objectives 
Memorandum  (POM). 


Data  User  inputs  Computation  steps  Outputs 


THE  ENREP  SYSTEM 


ENREP  consists  of  five  preliminary  routines  and  the  main  projection  routine, 
PLANNER.  Each  preliminary  routine  prepares  a  particular  input  for  ENREP.  PLANNER 
accepts  any  user  inputs  and  the  outputs  of  the  preliminary  routines  and  makes  a  projection. 

DATA 

The  ENREP  system  relies  on  the  following  data  sources: 

1.  Navy  Resource  Model  (NARM) 

a.  ship  and  aircraft  forces 

b.  ship  and  aircraft  manning  factors 

c.  projected  enlisted  manpower  totals. 

2.  Enlisted  billet  file,  RENLQUAL/SPECIAL:  rating  by  paygrade 

distributions 

3.  Pers-2:  enlisted  inventory. 

The  NARM  provides  inputs  for  ENREP  by  program  element  (PE)  and  program  unit 
(PU)  codes.  The  enlisted  billet  file,  RENLQUAL/SPECIAL,  provides  inputs  for  ENREP 
by  activity  type  (ACT)  and  PE  codes. 

Program  elements  are  the  smallest  building  blocks  in  the  Navy's  Five-Year  Defense 
Plan  (FYDP).  Examples  are  ships  by  function,  such  as  missile  frigates;  aircraft  squadrons 
by  function,  such  as  A-7  squadrons;  and  RDT&E  by  project,  such  as  gun  systems  develop¬ 
ment  program . 

Program  unit  codes  provide  detailed  definition  of  force  units.  Ship  forces  are 
identified  by  status,  type,  class,  and  major  claimant.  Aircraft  forces  are  identified  by 
status,  type,  model,  series,  ana  major  claimant.  Examples  are  active  submarines, 

Polaris  class,  Pacific  Fleet;  and  active  attack  planes,  model  7,  series  E,  Atlantic  Fleet. 
The  ENREP  system  aggregates  PU  codes  across  major  claimant  because  claimants  do  not 
provide  additional  information  about  the  actual  ships  or  aircraft. 

Activity  type  codes  identify  ship  type  and  type  of  aircraft  squadron.  Examples  are 
destroyers  and  readiness  squadrons.  This  code  provides  more  information  about  aircraft 
squadrons.  For  example,  the  PE  code  for  direct  support  squadrons  does  not  distinguish 
between  aircraft  and  helicopters,  but  the  ACT  code  does. 

The  manning  factors  from  the  NARM  specify  the  number  of  personnel  required  onboard 
and  in  the  force  support  areas  of  base  operations,  training,  medical  support,  recruiting 
and  examining,  and  individual  support  (transients,  patients  and  prisoners,  and  personnel 
holding  account).  The  factors  for  force  support  areas  are  identified  by  the  PE  and  PU  of 
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the  force  unit  they  support,  but  the  manpower  is  assigned  to  PEs  in  the  respective  support 
areas.  Therefore,  it  is  not  possible  to  distinguish  between  support  manpower  for  carriers 
as  opposed  to  fighter  squadrons,  frigates  as  opposed  to  minesweepers,  etc.  This  immedi¬ 
ately  establishes  PE  as  the  lowest  level  of  detail  for  the  ENREP  system  as  a  whole.  In 
sum,  these  NARM  inputs  become  the  quantitative  basis  of  the  ENREP  system.* 

The  enlisted  billet  file,  REN LQ UAL/SPECIAL,  is  the  qualitative  basis  of  the  ENREP 
system.  ^ 

The  NARM  and  the  RENLQUAL/SPECIAL  file  share  a  common  descriptor,  PE  code, 
but  this  code  alone  does  not  capture  the  differences  between  the  various  ships  or  aircraft 
assigned  to  a  single  PE.  ENREP  uses  all  three  codes  —  ACT,  PE,  and  PU  —  to  describe 
forces  and  their  manpower.  What  results  is  best  described  by  an  example.  A  class 
1040  frigate  and  a  class  1052  frigate,  assigned  to  the  PE  non-missile  frigates,  have 
manning  factors  of  247  and  245,  respectively.  But  the  quality  of  men  onboard  these 
two  classes  of  ships,  and  all  other  non-missile  frigates,  is  identical.  Similarly,  an 
attack  plane,  such  as  the  A-7E,  and  another  of  the  same  model  but  different  in  series, 
such  as  the  A-7A,  are  assigned  to  the  same  PE,  have  different  manning  factors,  but 
have  identical  quality.  That  is,  for  an  ACT/PE/PU  combination,  the  manning  factor  is 
determined  by  the  PE/PU  and  the  quality  is  determined  by  the  ACT/PE.  Note  that  the 
PE/PU  uniquely  determines  the  manning  factors  and  the  corresponding  ACT  code,  but 
the  ACT/PE  ean  have  several  PU  codes  and  each  will  have  the  same  quality.  The  ENREP 
system  uses  the  PE  code  alone  to  describe  all  manpower  requirements  not  assigned  to  ship 
or  aircraft  forces . 

Dictionaries  of  ACT/PE/PU  combinations  are  in  appendix  A.  The  ship  ACT/PE/PU 
dictionary  details  the  association  between  ship  ACT  codes,  PE  codes  and  PU  codes,  and 
identifies  the  ship's  type  and  class  by  name.  The  aircraft  ACT/PE/PU  dictionary  does 
the  same  for  aircraft.  The  entries  in  each  dictionary  are  arranged  by  ACT  code,  then 
by  PE  code,  and  lastly  by  PU  code,  all  in  ascending  order.  This  order  must  be  main¬ 
tained  when  new  entries  are  added. 

Nearly  every  ENREP  routine  requires  the  ship  and  aircraft  ACT/PE/PU  dictionaries 
and  they  should  be  stored  on  a  convenient  medium  to  be  readily  available. 


*NARM  data  files  are  available  from  Op-901M. 
^RENLQUAL/SPECIAL  files  are  available  from  Op-102C. 


The  enlisted  inventory  file  from  Pers-2  contains  a  count  of  the  active  personnel  at 
the  end  of  the  previous  fiscal  year  by  rating,  paygrade,  and  length  of  service  (LOS). 

ENREP  uses  these  counts  to  translate  its  final  rating  by  paygrade  requirements  into 
rating  by  LOS  requirements. 

USER  INPUT  OPTIONS 

ENREP  provides  the  user  with  six  options  that  may  be  exercised  to  modify  source 
data  and  projection  procedures: 

1.  Ship  and  aircraft  force  updates 

2.  Direct  manning  factor  updates 

3.  Percentage  manning  factor  updates 

4.  Changes  to  the  variable  percentage  in  the  five  force  support  areas 

5.  Ability  to  vary  PEs  not  in  a  force  or  force  support  area 

6.  Percentage  changes  to  the  fixed  requirements. 

All  modifications  are  effective  for  only  one  run  of  the  model,  and  do  not  make  any 
permanent  changes  to  the  data  base. 

The  first  option  enables  the  user  to  modify  and  add  to  the  NARM  forces,  or  to  create 
a  hypothetical  force  mix.  The  user  must  specify  the  ACT,  PE,  and  PU  codes  of  the 
force  unit,  and  the  number  of  units  in  each  year.  ENREP  allows  200  force  unit  updates. 

The  second  option  enables  the  user  to  directly  override  any  of  the  six  NARM  manning 
factors  for  a  particular  force  unit.  The  six  factors  are  onboard,  base  operations,  training, 
medical  support,  recruiting  and  examining,  and  individual  support.  For  each  override  the 
user  must  specify  the  factor,  the  corresponding  force  unit,  the  range  of  years  affected  and 
the  replacement  factor  value.  ENREP  allows  for  100  direct  factor  updates. 

The  third  option  enables  the  user  to  make  a  percentage  change  in  any  NARM  manning 
factor  for  a  group  of  force  units.  For  each  percentage  change  the  user  must  specify  the 
factor,  the  force  units  in  the  group  (maximum  of  20),  the  years  affected,  and  the  per¬ 
centage  change  in  the  factor  value.  ENREP  allows  for  50  percentage  factor  updates. 

The  fourth  option  enables  the  user  to  change  the  variability  of  any  of  the  five  force 
support  areas  --  base  operations,  training,  medical  support,  recruiting  and  examining, 
and  individual  support.  ENREP  first  calculates  the  percent  that  each  force  support  area 
varies  with  the  NARM  forces  and  displays  them  for  the  user.  To  change  one  of  these 
percents,  the  user  must  specify  the  force  support  area,  the  years  affected,  and  the 
replacement  variable  percent.  ENREP  allows  the  user  to  change  the  variable  percent 
for  each  force  support  area,  in  each  year  of  the  projection. 
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The  fifth  option  enables  the  user  to  vary  a  group  of  program  elements  with  the  forces 
and  their  manning  factors.  These  program  elements,  such  as  logistics  or  research  and 
development,  are  normally  fixed,  or  independent  of  forces.  Any  program  element  that 
is  not  in  a  force  or  a  force  support  area  can  be  modeled  in  this  way.  For  each  variation 
the  user  must  specify  the  members  of  the  group  (maximum  of  10),  the  percent  to  be 
variable,  and  a  proxy  to  measure  the  variability.  The  proxy  is  any  combination  of  ship 
forces,  air  forces,  and  the  five  force  support  areas.  ENREP  calculates  the  total  variable 
requirement,  by  year,  for  ship  forces,  air  forces,  and  the  force  support  areas  based  on 
the  NARM  forces  and  factors  and  uses  them  as  a  base  case.  When  ENREP  responds  to 
this  option,  it  compares  the  total  variable  requirement  for  the  proxy  in  the  current  run 
to  that  in  the  base  case.  The  same  percentage  change  is  made  to  the  variable  component 
of  the  user's  group.  For  example,  assume  the  group  is  to  be  20  percent  variable  and  its 
proxy  increased  10  percent.  Then  ENREP  would  increase  the  group's  requirements  10 
percent  of  20  percent  or  2  percent.  ENREP  allows  the  user  to  vary  up  to  10  groups  of 
PEs. 

The  final  option  enables  the  user  to  adjust  fixed  requirements.  A  percentage  increase 
or  decrease  in  the  standard  ones  can  be  specified  for  each  year  in  the  projection. 

PROJECTION  METHODS 

ENREP  estimates  enlisted  requirements  for  each  projection  year  in  five  steps: 

1 .  Computes  requirements  for  personnel  assigned  to  ships  and  to 
aircraft  squadrons; 

2.  Computes  requirements  for  personnel  assigned  to  force  support 
PEs; 

3.  Computes  requirements  for  personnel  assigned  to  PEs  which  the  user 
has  defined  as  variable  but  are  not  in  a  force  or  force  support  area; 

4.  Adds  fixed  requirements  to  variable  ones;  and 

5.  Transforms  the  resulting  requirements  from  a  rating  by  paygrade 
distribution  to  a  rating  by  LOS  distribution. 

In  the  first  step,  the  distribution  of  ratings  and  paygrades  specified  by  the 
RENLQUAL/SPECIAL  file  is  scaled  to  equal  the  onboard  NARM  manning  factor  for  each 
ACT/PE/PU  combination.  (Recall  that  the  user  can  override  this  factor.)  The  result 
is  the  enlisted  strength  required  to  man  one  ship  or  aircraft  of  the  given  class  or  series. 
Multiplying  the  requirements  for  each  rating  and  paygrade  by  the  corresponding  number 
of  ships  or  aircraft  gives  the  total  requirements  for  the  ACT/PE/PU  combination. 

Summing  over  all  combinations  yields  one  year’s  projection  of  force  manpower. 


-6- 


In  the  second  step,  the  enlisted  requirements  assigned  to  force  support  PEs  are 
computed.  These  PEs  constitute  the  following  force  support  areas:  base  operations, 
enlisted  training,  medical  support,  recruiting  and  examining,  and  individual  support. 

The  procedure  is  similar  to  step  one.  For  each  ACT/PE/PU  combination,  the  number 
of  ships  or  aircraft  is  multiplied  by  the  corresponding  manning  factor.  This  gives  the 
number  of  enlisted  personnel  required  by  the  current  forces  in  each  support  area.  If 
the  user  changes  the  percent  of  the  support  area  that  is  normally  variable,  ENREP 
increases  or  decreases  the  variable  requirements  by  the  percent  change  divided  by  the 
normal  percent  variable,  and  also  makes  an  offsetting  change  in  the  fixed  endstrength 
of  each  PE.  When  the  variable  endstrength  for  a  support  area  is  computed,  the 
REN LQUA L/SPEC IA L  file's  distribution  of  ratings  and  paygrades  is  used  to  define 
the  quality  of  each  PE  and  the  proportion  of  requirements  among  PEs.  These  billet 
requirements  are  scaled  to  the  computed  endstrength,  maintaining  the  quality  of  each 
PE  and  the  proportion  of  the  requirements  among  the  PEs.  The  resulting  requirements 
are  summed  over  all  support  areas  to  produce  the  force  support  manpower  for  one  year 
in  the  projection. 

In  the  third  step,  the  enlisted  requirements  assigned  to  PEs  which  the  user  has 
specified  as  variable  are  computed.  Since  the  requirements  assigned  to  these  PEs 
do  not  vary  in  the  NARM,  manning  factors  per  ship  and  per  aircraft  do  not  exist;  but 
the  NARM  does  estimate  the  total  endstrength  for  each  PE  as  a  fixed  requirement.  The 
user  specifies  the  variable  percentage  of  each  PE  and  proxy  requirements  to  measure 
changes  to  the  variable  portion.  The  user  may  choose  any  combination  of  the  following 
requirements  as  a  proxy:  ship  forces,  aircraft  forces,  enlisted  training,  medical  support, 
recruiting  and  examining,  and  individual  support.  To  compute  the  variable  requirements 
for  a  PE  which  is  not  variable  in  the  NARM,  ENREP  multiplies  the  total  endstrength  by 
the  percent  that  the  user  considers  variable,  yielding  the  variable  endstrength  associated 
with  the  NARM  forces.  The  difference  between  total  and  variable  endstrengths  is  the 
fixed  endstrength  for  the  PE.  Next,  the  variable  endstrength  is  adjusted  by  ENREP  to 
reflect  the  current  force  levels.  It  determines  the  percentage  change  in  the  variable 
manpower  required  in  the  proxy  by  the  current  forces  from  that  required  in  the  proxy 
by  the  NARM  forces.  The  same  percentage  increase  or  decrease  is  then  made  in  the 
NARM  variable  endstrength,  giving  the  variable  endstrength  which  the  current  forces 
require  in  the  PE.  The  ratings  and  paygrades  of  each  PE  are  obtained  from  the 
RENLQ UAL/SPECIAL  file,  and  their  total  is  scaled  to  equal  the  variable  endstrength. 

For  example,  the  user  may  vary  20  percent  of  the  ship  overhaul  PE  requirements  using 
the  ship  forces  and  base  operations  as  a  proxy.  Then  if  these  proxy  variable  require¬ 
ments  increased  10  percent,  requirements  in  ship  overhaul  PEs  would  increase  10 
percent  of  20  percent  or  2  percent.  Summing  the  resulting  requirements  for  all  of 
these  PEs  completes  one  year's  projection  of  variable  manpower. 


In  the  fourth  step,  the  projection  of  all-Navy  enlisted  requirements  is  completed  by 
adding  fixed  requirements,  rating  and  paygrade,  to  the  variable  ones  in  each  PE.  To 
find  the  fixed  requirements,  the  variable  endstrength  required  by  the  NARM  forces,  as 
computed  in  steps  one  and  two,  is  subtracted  from  the  total  endstrength  in  the  NARM 
for  each  PE  in  each  year.  To  simulate  NARM  computations,  ENREP  uses  the  NARM 
forces  and  manning  factors.  The  differences  between  the  NARM  total  endstrengths  and 
the  ENREP  variable  endstrengths  are  assumed  to  be  the  fixed  endstrengths  for  each 
PE.  The  quality  for  each  PE  is  obtained  from  the  RENLQUAL/SPECIAL  file.  In  each 
subsequent  projection,  ENREP  first  increases  or  decreases  the  fixed  requirements  for 
each  PE  by  the  user  percentage  change,  if  given,  and  then  adds  them  to  the  variable 
ones.  The  fixed  requirements  of  the  fifth  year  are  used  for  the  EPA  years. 

In  the  final  step,  the  requirements  just  computed  are  transformed  from  the  rating 
by  paygrade  distribution  to  a  rating  by  LOS  distribution.  Within  each  rating,  the  number 
of  personnel  in  a  paygrade  are  spread  across  LOS  reflecting  the  current  Navy  inventory, 
as  obtained  from  Pers-2.  The  resulting  rating  by  LOS  requirements  are  displayed  after 
the  rating  by  paygrade  requirements  on  the  output  listing. 

OUTPUTS 

The  primary  printed  output  of  the  ENREP  system  is  enlisted  requirements,  rating 
by  paygrade,  for  up  to  16  years,  including  the  current  year.  These  requirements  reflect 
the  user  inputs  to  force  levels,  manning  policies,  and  projection  procedures.  The  require 
ments  are  also  written  on  a  tape  file  with  the  additional  dimension  of  PE,  and  trans¬ 
formed  from  a  rating  by  paygrade  distribution  to  a  rating  by  LOS  distribution,  and 
displayed  on  a  printed  listing.  As  ENREP  proceeds  through  the  computation  steps,  it 
also  displays  variable  and  total  requirements,  rating  by  paygrade,  for  seven  subsets 
of  the  Navy  —  ship  forces,  a  rcraft  forces,  base  operations,  training,  medical  support, 
recruiting  and  examining,  and  individual  support.  In  summary,  the  outputs  are: 

1.  All -Navy  total  enlisted  requirements,  rating  by  paygrade,  on  the  listing 

2.  All -Navy  total  enlisted  requirements,  PE  by  rating  by  paygrade,  on  a 
tape  file 

3.  All-Navy  total  enlisted  requirements,  rating  by  LOS,  on  the  listing 

4.  All-Navy  variable  enlisted  requirements,  rating  by  paygrade,  on  the 
listing 

5.  Variable  requirements,  rating  by  paygrade,  for  seven  subsets  of  the 
Navy  on  the  listing 

6.  Total  requirements,  rating  by  paygrade,  for  seven  subsets  of  the  Navy 
on  the  listing. 


INDIVIDUAL  ENREP  ROUTINES 


PRELIMINARY  ROUTINES 

The  ENREP  system  contains  five  preliminary  routines  which  create  the  system's 
data  base.  Each  of  these  routines  —  EXTRACT,  FORCES,  FACTORS,  SUPPORT,  and 
TOTAL  --  will  be  discussed  in  this  section.  Figure  2  illustrates  the  relationship 
between  these  routines  and  the  main  routine  PLANNER. 

EXTRACT 

Routine  EXTRACT  reads  the  enlisted  billet  file,  RENLQUAL/SPECIAL,  and  writes 
the  ENREP  version,  RENLQUAL/EXTRACT.  Its  purpose  is  to  delete  information  not 
used  in  the  ENREP  system  from  each  record,  reducing  the  size  of  each  record  from 
350  to  144  characters. 

The  input  to  EXTRACT  is  the  RENLQUAL/SPECIAL  file.  Outputs  of  EXTRACT 

are: 

1.  RENLQUAL/EXTRACT  file,  stored  on  magnetic  tape 

2.  Count  of  input  and  output  records 

3.  Listing  of  every  thousandth  record,  both  input  and  output  versions. 

The  program  listing  and  flowchart  are  in  appendix  B  and  sample  output  is  in 
appendix  C . 

The  RENLQUAL/SPECIAL  file  is  sorted  by  the  BuPers  unit  identification  code  (BUIC). 
Some  routines  in  the  ENREP  system  require  the  RENLQUAL/EXTRACT  file  to  be  sorted 
by  PE  code  and  then  by  ACT.  In  other  routines,  the  RENLQUAL/EXTRACT  file  must  be 
sorted  by  ACT  and  then  by  PE.  A  standard  system  sort  routine  should  be  used  to  create 
these  versions  of  the  file,  called  RENLQUAL/PEACT  and  RENLQUAL/ACTPE,  respec¬ 
tively. 

Although  the  RENLQUAL/SPECIAL  file  is  produced  monthly,  the  ENREP  system  re¬ 
quires  only  an  annual  update.  That  is,  the  procedures  described  above  need  only  be 
executed  once  per  year,  using  the  end  fiscal  year  file  of  30  September. 

FORCES 

Routine  FORCES  reads  the  ship  or  aircraft  forces  from  the  NARM/FORCES/SHIP  or 
NARM/FORCES/ AIRCRAFT  file  and  writes  the  ENREP/FORCES/SHIP  or  ENREP/FORCES/ 
AIRCRAFT  file.  There  are  two  versions  of  this  routine,  one  for  ship  forces  and  the  other 
for  aircraft  forces.  FORCES  performs  the  following  five  steps: 
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FIG.  2:  OVERVIEW  OF  THE  ENREP  ROUTINES 


1.  Reads  the  NARM  forces  by  PE/PU  for  each  of  the  five  years  in  the 
POM,  replicating  the  last  year’s  forces  throughout  the  10  EPA  years; 

2.  Aggregates  the  forces  across  major  claimant,  a  part  of  the  PU  code; 

3.  For  aircraft  only,  deletes  Marine  forces  and  non-squadron  Navy 
forces  because  their  manning  factors  are  not  computed  by  the  NARM; 

4.  Adds  the  ACT  code  associated  with  each  PE/PU  pair;  and 

5.  Writes  a  file  of  force  inputs  for  the  projection  routine,  PLANNER. 

The  POM  is  updated  twice  annually  and  the  two  FORCES  routines  should  be  run  with 
each  update. 

Inputs  to  FORCES  are: 

1 .  NARM/FORCES/SHIP  or  NARM/FORCES/AIRCRAFT  file 

2.  Ship  or  aircraft  ACT/PE/PU  dictionary.  * 

Outputs  of  FORCES  are: 

1.  ENREP/FORCES/SHIP  or  ENREP/FORCES/AIRCRAFT  file,  which 
contains  forces  for  16  years 

2.  Listing  of  ship  or  aircraft  forces. 

The  program  listing  and  flowchart  are  in  appendix  B.  An  unclassified  (arbitrary) 
sample  output  is  in  appendix  C . 

FACTORS 

Routine  FACTORS  combines  the  NARM  manning  factors  and  the  RENLQUAL/ACTPE 
file  quality  (rating  by  paygrade  distribution)  to  create  a  unit  requirements  matrix  for 
each  combination  of  ACT/PE/PU.  These  requirements  are  the  number  of  personnel  in 
each  rating  and  paygrade  required  onboard  one  ship  or  aircraft  described  by  the  ACT, 

PE  and  PU  codes.  This  routine  must  be  run  twice,  once  for  ships  and  once  for  aircraft, 
each  year  when  the  NARM  factors  are  updated. 

The  first  step  in  creating  these  unit  requirements  matrices  is  to  read  the  NARM 
factors  — onboard,  base  operations,  training,  medical  support,  recruiting  and  examining, 
and  individual  support  --  from  the  NARM/FACTORS/SHIP  or  the  NARM/FACTORS/ 
AIRCRAFT  file.  These  factors  are  read  for  each  PE/PU  pair,  averaging  across  major 
claimants.  Then  FACTORS  adds  the  ACT  code  associated  with  each  PE/PU  pair.  In 
the  second  step,  FACTOR  reads  the  RENLQUAL/ACTPE  file  and  compiles  a  matrix 


1  Listed  in  appendix  A . 
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of  billets,  rating  by  paygrade  by  year,  for  each  ACT/PE  pair.  In  general,  there  are 
several  NARM  PE/PU  pairs  for  each  quality  matrix.  The  onboard  manning  factor  for 
each  PE/PU  pair  is  spread  over  the  ratings  and  paygrades  of  the  quality  matrix  in  each 
year.  The  result  is  a  unit  requirements  matrix  for  each  ACT/PE/PU  combination  for 
each  year  in  the  POM.  Note  that  manning  factors  do  not  vary  across  years  but  quality 
does.  These  matrices  and  the  corresponding  force  support  factors, without  quality, 
are  written  on  the  ENREP/UNITREQ/SHIP  or  the  ENREP/UNITREQ/AIRCRAFT  file 
for  input  to  PLANNER . 

FACTORS  also  enables  the  user  to  create  unit  requirements  matrices  for  ships  or 
aircraft  not  in  the  NARM  file.  This  option  is  useful  in  long  range  planning  where 
new  forces  which  are  not  defined  in  the  standard  inputs  enter  the  fleet.  The  user  must 
specify  the  ACT,  PE,  and  PU  codes  for  the  new  force  unit,  the  factors  for  onboard 
and  force  support  manning,  and  the  quality  proxy  from  the  ACT/PE  pairs  on  the  billet 
file.  In  addition,  the  user  must  add  the  new  ACT/PE/PU  combination  to  the  ship  or 
aircraft  dictionary. 

A  variation  of  this  option  is  used  if  there  are  PE/PU  pairs  in  the  NARM  file  which 
do  not  have  a  corresponding  ACT/PE  pair  in  the  billet  file.  In  these  cases,  the  user 
need  only  identify  the  quality  proxy. 

The  inputs  to  FACTORS  are: 

1.  RENLQUAL/ACTPE  file 

2.  NARM/FACTORS/SHIP  or  NARM/FACTORS/AIRCRAFT  file 

3.  Ship  or  aircraft  ACT/PE/PU  dictionary 

4.  List  of  new  force  units,  their  manning  factors,  and  quality  proxies 

5.  List  of  PE/PU  pairs  needing  quality  and  their  quality  proxies. 

The  output  of  FACTORS  is  the  ENREP/UNITREQ/SHIP  or  ENREP/UNITREQ/AIRCRAFT 
file,  which  contains  the  unit  requirements  matrix  and  force  support  factors  for  each 
combination  of  ACT/PE/PU,  for  each  year  in  the  POM. 

The  program  listing  and  flowchart  are  in  appendix  B  and  a  sample  input  and  a  sample 
output  are  in  appendix  C. 

A  simple  routine  named  FACTORS/UTILrTY  combines  the  ENREP/UNITREQ/SHIP 
file  and  the  ENREP/UNITREQ/AIRCRAFT  file  to  create  the  ENREP/UNITREQ/ALL  file. 
This  action  reduces  the  number  of  tape  drives  required  when  PLANNER  is  executed.  A 
sample  listing  is  also  shown  in  appendix  B. 


SUPPORT 

Routine  SUPPORT  creates  a  quality  matrix  for  each  PE  of  the  five  support  areas  — 
base  operations,  training,  medical  support,  recruiting  and  examining,  and  individual 
support.  SUPPORT  simply  reads  the  RENLQUAL/PEACT  file  and  compiles  a  quality 
matrix  of  billets,  rating  by  paygrade  by  year,  for  each  PE  in  the  force  support  areas. 
Then  these  matrices  are  arranged  by  support  area  and  written  to  the  ENREP/SUPPORT/ 
QUALITY  file  for  input  to  PLANNER.  Since  the  support  quality  is  identical  for  all  ships 
and  aircraft,  support  manning  factors  are  spread  across  these  quality  matrices  in 
PLANNER  to  reduce  the  size  of  the  data  base. 

The  input  to  SUPPORT  is  the  RENLQUAL/PEACT  file. 

The  outputs  of  SUPPORT  are: 

1.  ENREP/SUPPORT/QUALITY  file,  which  contains  the  quality  matrix 
for  each  PE  in  the  force  support  areas,  for  each  year  in  the  POM 

2.  Listing  of  those  quality  matrices . 

The  program  listing  and  flowchart  are  in  appendix  B  and  a  sample  output  is  in 
appendix  C . 

TOTAL 

Routine  TOTAL  combines  the  NARM  projected  enlisted  totals  with  the  RENLQUAL/ 
PEACT  file  quality  to  create  a  total  requirements  matrix  for  each  PE  in  each  year  of 
the  POM.  These  requirements  are  the  total  number  of  personnel  in  each  rating  and 
paygrade,  by  PE  and  year.  PLANNER  subtracts  the  variable  requirements  it  computes 
using  NARM  inputs  from  these  total  requirements  to  compute  fixed  requirements  by  PE 
and  year. 

TOTAL  reads  the  RENLQUAL/PEACT  file  and  compiles  a  quality  matrix  of  billets 
for  each  PE  and  year.  Then  it  spreads  the  corresponding  NARM  total  from  the  NARM/ 
ENLTOTALS  file  across  the  quality  matrix  and  writes  the  resulting  total  requirements 
matrix  on  the  ENREP/TOTALREQ  file  for  PLANNER.  TOTAL  can  also  display  the 
billet  quality  unchanged  by  not  using  the  NARM  input. 

Usually,  there  are  some  PEs  on  the  NARM  file  which  do  not  have  a  quality  matrix  in 
the  RENLQUAL/PEACT  file.  A  TOTAL  option  enables  the  user  to  specify  a  PE  which 
has  a  quality  matrix  as  a  proxy  for  a  PE  which  does  not.  Generally,  a  user  will  not 
know  which  PE  codes  require  this  input  until  TOTAL  ha?  been  run  once  and  identifies 
them .  This  option  can  also  be  used  to  replace  the  quality  matrix  of  a  PE  with  that  of 
another  PE.  Another  TOTAL  option  enables  the  user  to  alter  the  quality  matrix  of  a 
PE  by  multiplying  all  billets  of  a  particular  rating  by  an  input  scaling  factor. 
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Inputs  to  TOTAL  are: 


1.  RENLQUAL/PEACT  file 

2.  NARM/ENLTOTALS 

3.  List  of  PEs  needing  a  quality  matrix  and  their  proxy  PEs 

4.  List  of  ratings  and  their  scaling  factors  for  each  PE  whose  quality 
is  being  altered. 

Outputs  of  TOTAL  are: 

1.  ENREP/TOTALREQ  file,  which  contains  the  total  requirements  matrix 
for  each  PE  in  each  year  of  the  POM 

2.  Display  of  NARM  projected  enlisted  totals  by  PE  and  year 

3.  Display  of  the  all  Navy  requirements  by  rating,  paygrade,  and  year. 

The  program  listing  and  flowchart  are  in  appendix  B,  and  a  sample  input  and  output 
are  in  appendix  C . 

The  output  file,  ENREP/TOTALREQ,  must  be  sorted  by  PE  code  within  each  year. 
A  standard  system  sort  routine  should  be  used  to  create  the  ENREP/TOTA  LREQS 
version  of  this  file. 

MAIN  ROUTINE  PLANNER 

The  most  important  and  complex  module  of  the  ENREP  system,  PLANNER,  has  two 
distinct  modes  of  operation.  In  the  first  mode,  it  operates  as  an  input  routine,  gener¬ 
ating  fixed  requirements  for  each  PE  and  year  and  computing  statistics  to  describe  the 
variability  of  force  and  force  support  program  elements.  In  the  second  mode,  it  acts 
as  a  projection  routine,  combining  inputs  from  the  preliminary  routines,  the  user,  and 
itself  to  project  enlisted  requirements.  These  requirements  are  described  by  rating 
and  paygrade  and  by  rating  and  length  of  service  (LOS)  over  a  fifteen  year  time  span. 

Input  Mode 

The  inputs  to  PLANNER,  input  mode,  are: 

1.  ENREP/FORCES/SHIP  and  ENREP/FORCES/AIRCRAFT  files,  which 
contain  ship  and  aircraft  forces  (FORCES) 

2.  ENREP/UNITREQ/ALL  file,  which  contains  the  ship  and  aircraft  unit 
requirements  matrices  and  support  manning  factors  (FACTORS) 


3.  ENREP/SUPPORT/QUALITY  file,  which  contains  the  force  support 
quality  matrices  (SUPPORT) 

4.  ENREP/TOTALREQS  file,  which  contains  the  total  requirements 
matrices  (TOTAL) 

5.  Ship  and  aircraft  ACT/PE/PU  dictionary  (User). 

These  inputs  are  described  in  detail  in  the  previous  section. 

PLANNER  assumes  that  the  total  requirement  for  a  PE  has  a  fixed  and  a  variable 
component,  although  one  of  the  components  may  be  zero.  The  total  requirements,  rating 
by  paygrade  for  each  PE,  are  obtained  from  TOTAL.  These  requirements  quantitatively 
reflect  the  NARM  and  qualitatively  reflect  the  RENLQUAL  file.  PLANNER  calculates 
the  variable  component  for  each  PE  using  the  NARM  forces,  NARM  manning  factors,  and 
the  RENLQUAL  file  quality  obtained  from  FORCES,  FACTORS,  and  SUPPORT.  In  the 
input  mode,  PLANNER  does  not  accept  user  modifications  to  the  NARM  and  RENLQUAL 
file  inputs  or  to  the  procedure  used  to  calculate  the  variable  components.  It  subtracts 
the  variable  component  from  the  total  requirement,  yielding  the  fixed  component  for 
each  PE,  in  each  year  of  the  POM.  These  fixed  requirements  and  the  statistics  on 
force  and  force  support  variabi'ity  are  saved  for  later  use  by  PLANNER  in  the  projection 
mode.  Note  that  the  calculation  of  variable  requirements  is  identical  regardless  of  the 
operational  mode,  except  that  in  the  input  mode  user  modifications  are  not  accepted. 

The  outputs  of  PLANNER,  input  mode,  are: 

1.  ENREP/FIXEDREQ  file,  which  contains  the  fixed  requirements  matrices 

2.  ENREP/PLANNER/STATS  file,  which  contains  the  force  and  force  support 
variability  statistics. 

Projection  Mode 

The  standard  inputs  to  PLANNER,  projection  mode,  are: 

1.  ENREP/FORCES/SHIPS  and  ENREP/FORCES/AIRCRAFT  files,  which 
contain  the  ship  and  aircraft  forces  (FORCES) 

2.  ENREP/UNITREQ/ALL  file,  which  contains  the  ship  and  aircraft  unit 
requirements  matrices  and  support  manning  factors  (FACTORS) 

3.  ENREP/SUPPORT/QUALITY  file,  which  contains  the  force  support 
quality  matrices  (SUPPORT) 

4.  ENREP/FIXEDREQ  file,  which  contains  the  fixed  requirements  matrices 
(PLANNER) 

5.  ENREP/PLANNER/STATS  file,  which  contains  the  force  and  force  support 
variability  statistics  (PLANNER) 
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6.  Ship  and  aircraft  ACT/PE /PU  dictionary  (User) 

7.  PERS2/ENLINVEN  file,  which  contains  the  enlisted  inventory  (Pers-2). 

The  user  inputs  to  PLANNER,  projection  mode,  are: 

1.  Ship  and  aircraft  force  updates 

2.  Direct  manning  factors  updates 

3.  Percent  manning  factor  updates 

4.  Changes  in  the  variable  percentage  of  the  five  force  support  areas 

5.  Inputs  to  vary  PEs  not  in  a  force  or  force  support  area 

6.  Percentage  changes  in  the  fixed  requirements. 

These  inputs  are  described  in  detail  in  the  "User  Input  Options"  section. 

PLANNER  reads  and  displays  all  user  inputs.  Next,  it  reads  the  ship  or  aircraft 
force  input  for  each  ACT,  PE,  and  PU  combination,  in  each  year.  These  forces  are 
modified  to  reflect  any  user  force  updates  and  displayed  to  document  the  run. 

PLANNER  repeats  the  following  procedures  consecutively  for  each  year  in  the 
projection.  First,  it  computes  the  manpower  assigned  to  ships  and  to  aircraft  squadrons. 
It  reads  the  rating  by  paygrade  unit  requirements  matrix  for  each  ACT,  PE,  and  PU 
combination,  and  then  modifies  these  matrices  to  reflect  any  user  factor  updates. 

Then  the  unit  requirements  are  multiplied  by  the  corresponding  number  of  units  and 
the  results  are  added  to  the  other  requirements  for  the  PE. 

Manpower  assigned  to  force  support  is  calculated  similarly.  PLANNER  reads  the 
five  support  manning  factors  for  each  force  ACT,  PE,  and  PU  combination,  and  then 
modifies  these  factors  to  reflect  any  user  updates.  Then  each  factor  is  multiplied  by  the 
corresponding  number  of  force  units,  yielding  the  number  of  enlisted  personnel  required 
by  the  current  forces  in  each  support  area.  PLANNER  uses  the  force  support  quality 
matrices  to  proportion  each  endstrength  among  the  PEs  of  its  support  area,  and  to  define 
the  quality  within  each  PE.  Lastly,  if  the  user  has  changed  the  variable  percentage  of 
a  force  support  area,  the  variable  requirements  for  that  area  are  increased  or  decreased 
by  the  percentage  change  divided  by  the  usual  variable  percentage.  This  yields  enlisted 
requirements  by  rating,  paygrade,  and  PE  in  each  force  support  area. 

To  complete  the  computation  of  variable  requirements,  PLANNER  calculates  them 
for  the  PEs  which  are  not  in  a  force  or  force  support  PE  but  are  to  vary  in  response  to 
the  user’s  inputs.  For  each  of  these  PEs,  PLANNER  multiplies  the  total  endstrength  by 
the  percent  the  user  considers  variable,  yielding  the  variable  endstrength  associated 
with  the  NARM  forces .  The  difference  between  the  total  and  variable  endstrengths 


becomes  the  fixed  endstrength  for  the  PE.  Next,  PLANNER  adjusts  the  variable  end- 
strength  to  reflect  the  current  forces.  It  calculates  the  percentage  change  in  the  variable 
manpower  required  in  the  proxy  by  the  current  forces  from  that  required  in  the  proxy 
by  the  NARM  forces.  The  same  percentage  cliange  is  inade  to  the  variable  endstrength. 
The  result  is  spread  across  the  quality  dimensions,  yielding  the  manpower  required  by 
the  current  forces  in  this  PE  with  the  current  set  of  user  options. 

To  complete  the  projection,  PLANNER  adds  the  fixed  requirements  to  any  variable 
ones  in  each  PE.  These  fixed  requirements  are  calculated  by  PLANNER  operating  in 
the  input  mode,  and  are  subject  to  user  modification.  The  user  may  specify  a  percent¬ 
age  increase  or  decrease  in  fixed  requirements,  in  every  year.  Also,  if  the  user  had 
specified  a  change  in  the  percent  a  force  support  area  is  variable,  PLANNER  makes  the 
complementary  change  to  the  fixed  requirements  for  that  support  area  at  this  time.  This 
completes  the  projection  for  one  year.  The  total  requirements  are  displayed  on  a  listing 
by  rating  and  paygrade  and  are  written  to  the  ENREP/FINAL  file  by  PE,  rating,  and 
paygrade . 

PLANNER  can  translate  the  quality  of  its  projections  from  rating  by  paygrade  to 
rating  by  LOS.  For  each  rating,  it  reads  the  actual  inventory  by  paygrade  and  LOS. 

Then  for  each  paygrade,  it  calculates  the  distribution  across  the  LOS  cells.  The 
number  of  requirements  in  each  rating  and  paygrade  combination  is  spread  across  LOS 
using  the  corresponding  distribution  and  the  results  are  summed  by  rating  and  LOS. 

This  version  of  the  projection  is  also  displayed  on  the  listing. 

A  listing  of  the  PLANNER  routine  and  a  flowchart  are  in  appendix  B.  Sample  inputs 
and  outputs  are  in  appendix  C. 

SUBROUTINE  MOVE 

Nearly  every  routine  in  the  ENREP  system  requires  subroutine  MOVE,  a  general 
purpose  ALGOL  algorithm  which  performs  character  manipulation.  The  statement 

CALL  MOVE  (X,  I,  Y,  J,  K) 

causes  the  K  characters,  beginning  at  position  I,  of  array  X  to  be  inserted  into  array 
Y,  beginning  at  position  j.  Array  X  is  never  changed.  For  example,  if 

X(l)  =  AAAAAA 

X(2) =  BBBBBB 

Y(l)  =  CCCCCC 

Y(2)  =  DDDDDD 
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and  the  statement 

CALL  MOVE  (X,  5,  Y,  2,6) 
is  executed,  the  results  are 
X(l)=  AAAAAA 
X(2) =  BBBBBB 
Y(l)  =  CAABBB 
Y(2)  =  BDDDDD . 
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APPENDIX  A 

DICTIONARIES  OF  ACT/PE/PU  CODES 
FOR  SHIPS  AND  AIRCRAFT 


AC  T 
CODE 

PE 

C  00  E 

PU 

COOE 

SHI  P 

SAME 

1  23 

242572 

117201 

AC-26CL 

123 

242572 

1 17203 

AO*  14CL 

l  25 

24  29  72 

1 17205 

AU-37CL 

1  23 

24  25  72 

117206 

AD" 4  1C  L 

125 

2444  12 

1  16455 

AE-2  ICL 

1  2  fi 

249412 

1  1  600b 

AE-23CL 

1  2« 

244412 

116007 

AE-2  6CL 

1  33 

24  44  12 

t  16  104 

A6-58CL 

1  34 

249412 

11 62C1 

AES-1CL 

1  42 

24  2132 

116701 

AG  “  1 53  CL 

142 

243132 

1  1670  3 

AG-520  CL 

1  42 

421122 

1 56701 

AG" 153  CL 

1  4? 

245612 

116601 

AGO S  "1  CL 

152 

65  50  12 

1  1540  1 

AGEH-t  CL 

1  55 

24  9!  2  2 

1 17302 

AGF  -3CL 

15^ 

6553  12 

110711 

AGS 5  *555  CL 

159 

65  50  12 

1  10  7  1 3 

AGS  S  *5  6  9  CL 

213 

24  44  12 

1 16304 

A0-51CL 

210 

249412 

116306 

AO-1  43  CL 

2  15 

24  44  12 

1  16  30  7 

AO-177  CL 

215 

244M2 

1  1  6  3  C  P 

AO-NEW  CL 

212 

244412 

1 1 6401 

SOE  -ICL 

2  16 

2444  12 

l  1650  1 

SOP*  ICL 

216 

24  4412 

1 165C2 

AOP  -7CL 

2  5b 

244512 

i  weoi 

AF-5CL 

2  5b 

24  45  12 

1  1 7<*0  4 

AP-2PCL 

A-l 


ACT 

HE 

HU 

SHI  P 

CODE 

CODE 

cool 

AA  HE 

284 

244522 

1  1870  1 

4RS -SCL 

284 

24  4522 

118702 

APS-?*CL 

292 

11  2222 

116801 

AO-1  5CL 

2  92 

112222 

1  I6e32 

AS-J  1CL 

292 

11 2222 

116803 

AS-i  3CI 

292 

242822 

116801 

AS-19CL 

293 

242822 

1  lb9C  1 

A  S  - 1  1CL 

295 

24  2  822 

116902 

A5-36CL 

29? 

242222 

116903 

AS-39CL 

2  92 

245b  12 

1  1700  1 

ASR-7CL 

2  9  7 

245612 

1 1 7002 

ASR -21  CL 

3C6 

244522 

1 16902 

A TF  -81  CL 

306 

24  4622 

1  1890  3 

ATF  -95  CL 

306 

24  4522 

1  1  8904 

ATF  -148CL 

317 

24  4522 

119001 

ATS  -  1C  L 

329 

65  50  12 

1  1930  1 

AVM  -  1CL 

350 

655012 

112801 

AGFF-1CL 

3  81 

24  2912 

111501 

CG-10 

381 

24  2  9  12 

111502 

CG-1  1 

5181 

24  2912 

111504 

CG-4 

381 

24  2912 

111505 

CG-5 

3  82 

242912 

11  160  1 

CGN-9 

3e? 

24  29  1  2 

1 11602 

CGN-25 

382 

242912 

111603 

CGN-35 

382 

242912 

111604 

CGN-36 

3  82 

24  29  1  2 

111605 

CGN-38 

242912 


11  ieoe 


CGN-42 


242912 

111802 

CG-16 

24  2  912 

111603  ■ 

CG*Z6 

24  1122 

11CZ04 

CY-42 

241122 

11C2C5 

CV-43 

24  1 122 

1 1020  6 

CV-4  I 

24 1122 

1 1C2C7 

CV-59 

241122 

110208 

CV-60 

24  1122 

1 10209 

CV  *52 

24 1122 

110210 

CV-6  3 

241122 

1  1C211 

CV-63 

24  1  122 

1  102  12 

CV-64 

24  1122 

110213 

cv-6e 

241122 

110214 

CV-67 

24  1  122 

1  10301 

CVN-65 

241122 

1 1C302 

CVN-68 

241122 

1 10303 

CVN-69 

24 1 122 

1  10  304 

CVN-70 

24 1122 

1 1 C6C2 

CVV-1CI 

847412 

11 0501 

CVT  -16CL 

24  2922 

1 122  15 

CD-47CL 

24  29  22 

112208 

0n-710CL 

242932 

1  12210 

00-931  CL 

24  2932 

112211 

00*945  CL 

242932 

112212 

CO-963  CL 

242922 

112301 

OOG-35CL 

Acr 

I't 

t'U 

SHI  I* 

CODE 

CODE 

CODE 

64  HE 

442 

242922 

112302 

00G-31CL 

4  42 

242522 

1  1230  3 

CDG-2CL 

4  42 

24  2922 

112305 

OOG-37CL 

4  5b 

24  2552 

1 127C5 

FF-10S  7CL 

4  56 

242552 

112706 

FF*  1040  CL 

4  5b 

24  2952 

112707 

FF-1052CL 

4  52 

242542 

1  1320  1 

FFG-7CL 

4  58 

24  2942 

1 129C1 

FFG-1CL 

4  65 

242ei2 

11 34C2 

LSES-1CL 

4  89 

2441  12 

l  137w3 

LCC-19CL 

5  5b 

24  4112 

1138C1 

LHA-1CL 

5  58 

244112 

1 1 3906 

LKA-11 3CL 

559 

52  3662 

1 140  02 

LPA -248CL 

560 

244112 

114101 

LPD-1CL 

5  69 

244112 

1 14103 

LP0-4CL 

5  65 

2441  12 

1 1420  1 

LPH-2CL 

5  75 

24  4112 

1  1  440  3 

LSD-28  CL 

575 

244112 

114404 

LS0-36CL 

575 

24  4  1  12 

1  14405 

LSD  -4 1  CL 

5  95 

24  4112 

114504 

LST-tl  7 9 CL 

6  23 

24  3022 

115601 

HSO-42  2CL 

6  25 

243022 

1  1540  1 

HCM-1CL 

654 

24  2962 

114901 

FG-84CL 

6  54 

242962 

114902 

PG-92CL 

6  63 

242562 

11500  1 

PHH-1CL 

693 

24  2212 

110913 

SS-563CL 

— — — — 


ACT 

PE 

P'J 

SHI  P 

co  or 

C  00  E 

COO  E 

M  ME 

6  95 

24  2812 

110914 

SS-572CL 

695 

242612 

110915 

SS-574CL 

6  95 

24  2  6  12 

1  1C  9  16 

SS-589  CL 

6  97 

24  2ei2 

1U0C1 

SSN-571CL 

6  97 

24  2ei2 

111002 

S5N-575CL 

6  97 

242612 

111003 

SSN-578CL 

6  97 

24  261  2 

111004 

SSN-565CL 

6  97 

242ei2 

111007 

SSN-S94CL 

6  97 

24  26  12 

1 1 100  8 

SSN-597CL 

6  97 

24  2612 

111009 

SSN-63  7CL 

6  97 

242612 

111010 

SSN-671CL 

6  97 

242612 

111)11 

S  SN  *6?  5  CL 

6  97 

2<‘<ei2 

11  1012 

SSN-688CL 

6  97 

262612 

111013 

SSN-NEWCL 

7  1.6 

1122  12 

111101 

SSBN-5  96  CL 

7  06 

112212 

111102 

SSBN-608CL 

7  Co 

11 2212 

111103 

SS8N-6  16  CL 

7  06 

1122  12 

1  1110  4 

SSBN-627CL 

7C6 

11 2212 

1111C5 

SS8N-6  40  CL 

7C6 

11  226  2 

111201 

TP I  DENT 

13  06 

52  3  7  e  2 

1289)  3 

4TF-9SCL  RESEPVE 

1  3C6 

52  3762 

128904 

«TF-HeCL  RESERVE 

19  61 

52  3502 

122208 

DO-  7  10  CL  RESERVE 

U  41 

52  35C2 

122211 

DD-945  CL  RESERVE 

16  56 

52  3662 

123905 

LKA-112CL  RESERVE 

1559 

52  3662 

124002 

LPA-248CL  RESERVE 

ACT 

COOE 

PE 

COOL 

PU 

CO  OE 

SHI  P 

MM£ 

IS  59 

52  5662 

124003 

IPA-245CL 

RESERVE 

1623 

52  5552 

12560  1 

PSC-422CL 

RESERVE 

1625 

52  25  52 

125652 

4S0-42PCI 

RESERVE 

16  25 

523552 

125603 

MS0-556CL 

RESE  RVE 

16  25 

52  J 5  52 

1254P  1 

PCH-1CL  RESERVE 

1654 

523522 

1 2  4V0  1 

PtWACl  RESERVE 

A*>6 


ANNEX  A -2 

DICTIONARY  OF  ACT/PE/PU  CODES 
FOR  AIRCRAFT 


PE 

PU 

AIRCP4FT 

CODE 

CODE 

NAME 

523712 

217815 

HH-  IK 

24*552 

217616 

IH-4SD 

244532 

2  17619 

CH-460 

24  4532 

217631 

LH-4EA 

244532 

2268  30 

HH-  3 A 

24*532 

227235 

SH-SA 

244532 

227250 

JH-30 

24*532 

227469 

CH  -  5  3E 

2**532 

22823C 

VH-3A 

24*532 

237233 

SH-3G 

244532 

27761  3 

CH-4  6E 

523792 

2  2  68  30 

HH-3A 

242332 

227235 

SH-  3A 

242332 

227250 

SH-50 

242332 

227251 

X 

K! 

1 

X 

v/ 

24  2622 

227235 

SH-3* 

24  2b22 

227250 

SH-  30 

2*  2622 

227251 

SH-XH 

2*  2o22 

227499 

PH !X 

52  3322 

227235 

SH  -  3* 

523322 

227250 

SH  -  30 

523322 

237233 

SH  -  30 

24  3032 

227**5 

CH-5  3E 

2*3032 

227*99 

RH-53X 

2*2432 

267275 

SM-2F 

2*2*32 

2772*9 

HSX(L) 

A -7 

*CT 

coot 

PE 

CQOE 

PU 

CODE 

HPCFlf  r 
MM£ 

66  $5 

2*2622 

217619 

CH-4E0 

66  35 

2*2622 

217651 

HH“*6A 

66  35 

2*  2622 

227*69 

CH-53E 

66  35 

2*2622 

227*85 

CH-53C 

66  35 

2*2622 

22S230 

VH-3A 

6635 

2*  2622 

237233 

5H-3G 

66  35 

2*2622 

267255 

SH-20 

66  35 

2*2622 

267275 

JH-2F 

66  35 

2*2622 

2772*9 

HSX{ l) 

6635 

35  1312 

217005 

HH-20 

66  35 

35-1312 

283090 

RP-SO 

66  95 

2*1532 

21 1220 

RA-5C 

6695 

2*1562 

211220 

RA-5C 

5705 

2*  13*2 

210813 

KA  “60 

6705 

2*13*2 

220810 

A-6E 

6705 

2*1 352 

230620 

A-7E 

6705 

2*  1352 

230635 

A-7B 

6705 

2*1352 

2306*0 

A“  7  A 

6705 

2*1362 

280680 

A- 18 

6705 

2*  1562 

205297 

U-7C 

6705 

2*1562 

21081  3 

KA-60 

6705 

2*1562 

215620 

T-390 

6705 

2*  1562 

2 16020 

1-28C 

6705 

2*1562 

216050 

T-288 

6705 

2*1562 

220810 

*-6E 

225*30 


A -8 


6705 


2*  1562 


7-2C 


»cr 

PC 

PU 

AIPCPAF7 

CO  CE 

CODE 

CODE 

KAME 

6705 

24  1562 

230620 

WE 

6705 

241562 

230630 

A-7C 

6  705 

241562 

2  306  35 

WB 

67  j5 

24  1562 

230640 

A-7A 

b  705 

24 1562 

256475 

TC-4C 

6705 

241562 

245230 

7A-4F 

6705 

24  1562 

250660 

A-4F 

6705 

24 15b2 

25C665 

A-4E 

6705 

241562 

28C680 

A-ie 

6  7  05 

523112 

250651 

A-4L 

6  7  05 

523132 

230620 

A-7E 

6  7  05 

52  3132 

230635 

A-7B 

67  05 

52  3132 

23C640 

A”7  A 

670? 

242512 

222408 

P-3C 

6709 

242512 

2324'.  5 

P-3B 

5709 

242512 

232420 

P-3A 

6709 

24  2622 

222408 

P-3C 

6709 

242622 

23241 5 

P-  3B 

6709 

52  3  412 

232415 

P-3B 

670? 

523412 

232420 

P-3A 

67  09 

52  3412 

252445 

SP-2H 

6  7  10 

24  1422 

260279 

F-4N 

b7  10 

241422 

260284 

F-4J 

6710 

241422 

260295 

F-4S 

67  10 

24  1442 

220210 

F-14A 

6  710 

241452 

200220 

F-1P 

*cr 

PC 

Pll 

AI0CFAF 

CODE 

CODE 

CODE 

MXE 

67  ID 

241562 

200220 

r-ie 

6  713 

241562 

215205 

T“  3  8  A 

67  ID 

24  1562 

220210 

F-14A 

6710 

24  1562 

255216 

1A-4J 

6713 

241562 

260279 

F-4N 

67  1} 

24  1562 

260284 

r-4  J 

6710 

241562 

26C295 

F-4S 

6710 

241562 

290274 

F-5F 

67  13 

24  1562 

290275 

F-5E 

6  710 

52  3172 

2  6  C27  9 

F-4N 

6710 

52 3172 

260292 

F-48 

67  10 

52  3  172 

260295 

F-4S 

6716 

24  4532 

208409 

DC-130A 

6716 

244532 

225680 

TA-3B 

67  16 

244532 

236 640 

A-7A 

67  16 

24  4532 

235216 

1A-4J 

6716 

244532 

238433 

DP-2H 

67  16 

244532 

242425 

EP-2H 

6716 

244532 

250660 

A-4F 

6716 

244532 

250665 

A-4E 

67  16 

244532 

257245 

IH-3A 

6716 

24  4532 

26e42  3 

DP-3A 

6716 

244532 

272875 

EP-3A 

67  16 

52  3792 

235216 

TA-4J 

6718 

24  2342 

222205 

S-3A 

6718 

24  2622 

222205 

S-3A 

A- 10 


ACT 

PE 

PU 

4IFCFAFr 

COCE 

COCE 

CODE 

M“E 

6763 

341533 

23031 0 

F-l  4  4 

6763 

24  1533 

340435 

PF-8G 

6  7  63 

523353 

340435 

PF-3G 

6765 

341533 

213605 

E-2C 

6765 

34 1533 

3  13615 

E-28 

6765 

341563 

213605 

E-2C 

6763 

341562 

213615 

E-2B 

6765 

24  1563 

235308 

7E-2C 

6765 

34 1563 

335310 

TE-2A 

6765 

533342 

31 261 5 

E-2C 

6763 

53  3343 

33365C 

E-19 

6766 

113153 

333810 

EC-1300 

6764 

11 J153 

23281 5 

EC-131G 

6764 

34  1553 

3  I  1630 

CD 

►o 

1 

UJ 

6764 

34 1553 

335680 

14-  38 

67  64 

341553 

332430 

P-  4 

6764 

34  1553 

372e70 

EP-3B 

6764 

34 1553 

273879 

EP-  3E 

6765 

344533 

21 38C5 

C-  98 

67  65 

244532 

233020 

c- i3or 

6765 

34  4533 

223620 

CT-  35E 

67  65 

34  4533 

223623 

C 1  -  3  90 

67  65 

344533 

2  4  30  32 

VC-1  18  8 

6  7  65 

533793 

21 38C5 

C-93 

67  65 

52  3793 

253036 

C-1183 

67  65 

24  1543 

211820 

E4-6H 

A-ll 


ACT 

cocc 

PC 

cost 

PU 

coot 

AfPCFAf  f 
AAA-C 

24  1562 

211820 

CA-68 

6  7  66 

24  45  32 

221632 

EA-4F 

6766 

24  4532 

231423 

EPA-3U 

6766 

24  453 2 

231832 

EA-6A 

6766 

24  4532 

242835 

6C-121K 

6  7  66 

523262 

231023 

KA-  36 

67  66 

52  3262 

23  1832 

EA-bA 

6  7  69 

24 1512 

21  34  30 

C-2A 

6769 

241512 

223470 

C-l  A 

6769 

24  15  12 

227465 

PH-530 

6  7  86 

24  45  32 

214830 

IS-  28 

6786 

244532 

26C2e4 

F-4  J 

6796 

244532 

260295 

F-4  S 

6789 

35  1 1  22 

232420 

P-3  A 

6789 

35  1 1  22 

293092 

PP-  3A 

6797 

84  74  12 

2 17631 

HH-46A 

6797 

84  741  2 

218005 

TH-5  7A 

6797 

847412 

218055 

H-57 

6797 

847412 

2  27  8  20 

7H-1L 

6797 

847412 

237823 

EH- It 

6797 

647412 

237832 

LM-1E 

67  97 

647432 

2  14410 

LH-1  1A 

6797 

647432 

214830 

IS- 28 

5797 

647432 

217631 

HH-  46A 

6797 

847432 

267843 

IH-1N 

6799 

847412 

216050 

1- 2  e  b 

A-12 


luC  UE  SET  FFEC 

200  in  01 VI  £ t UN  . 

ioi)  p  «  n  o  f  a~i  - 1  o .  reoext. 

4'J  j 

500  ENVIRONMENT  DIVISION. 

bU  INP  Lt*0 L  TP  U  T  SECTION. 

'30  F ILE-CONINOL. 

t'JO  S  FL  £C  T  IN-FILE  ASSIGN  TO  PET  APE . 

700  SELECT  OUT-FILE  ASSIGN  TO  PCTAPE. 

1000  SELECT  LISTING  ASSIGN  TO  PPlNTFF. 

1100 

1200  0  A  r  A  01  V!  SION. 

1300  FILE  SECTION. 

1400  FO  IN-FILE 

1SC0  LAJEL  RECORDS  SIANDARJ  VALUE  OF  ID  IN-NAPE 

1600  R  EC  OP  0  I  MG  NODE  IS  STANDARD 

1700  BLOCK  CONTAINS  41  REC0F3S 


13  30 

DATA  RECQPOS  ARE  IN-REC 

,  I  N  -P  E  C 

-2  . 

17  00 
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02 
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02 
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PI  CURE 
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02 
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PI  CTUPE 
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PI  CTU  R£ 
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02 
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02 
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PI  CIURE 

X  (2  ). 

54  JO 

02 

AREA-TYPE -C  I  TY 
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OPPC 

PI  CURE 
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5700 

02 
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PICIJRE 
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5330 

02 
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PI  CURE 
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5303 

02 

PRIORI TY-MANNING 

PI  CTU  FE 
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02 

FILLCr 

PI  CTJ  RE 
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6100 
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FI LLEP 
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X  (3  ). 
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02 
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T  NX  GP 

PI C 1U  PE 
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02 
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PICTURE 

X  {  5  ). 

6500 

02 

THANSAC  T1UN-0ATE 

PICTURE 

X  C  6  ). 

bo  00 

0  2 

MO  I -INDICATOR 

PI  C TU PE 

X(1  ). 

6700 

02 

FILE-COO  E 

PICTURE 

X(l). 

6800 

02 

RECORD-NUMBER 

PI  CURE 

X(1  ). 

6900 

3  2 

FILLER 

PICIUFE 
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02 

AllOW-TRIG 

PI  CTU  RE 

X(l). 
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02 

PE9MNTS-TRIG 

PICTURE 
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7200 

02 
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PI  CIUPE 

X(l). 

73  00 

02 

ALGHENT-1 NOICATOR 
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PI  CTURE 
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PI  CIUFE 
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PI  CTURE 
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02 
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PI CTU  PE 
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8100 
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PICTURE 
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02 

FYC 
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S9(5>. 

e4  oo 

02 
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PICTURE 
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PICTUPE 
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PI  CTU  PE 

S  9 (5  )  . 
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PICTURE 
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PI  CTURE 
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PICTUPE 
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PICTURE 

S9<5). 
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PI  CTU  PE 
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02 
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PI  CTURE 
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9300 

02 

MO  6 

PICTURE 
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9400 

02 
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PI  CTURE 

S9  (5). 

9500 

02 

81LLET-TT  TLE 

PICTURE 
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9600 

02 
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PI  CTJRE 

X  (5  ). 

9700 

02 

PP I  -  SUB  SPEC 

PI  CTURE 

X  (5  ). 

9800 

02 

FILLER 

PICTURE 
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11000 
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11100 
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-REC  . 
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02 
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PICTUPE 
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1  1331 

02 

LIC 

PICTURE 

9(5  ). 
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02 

HARP 

PI  CTURE 

X  (4  >. 

1 1*00 

02 

ACT-COOE 

PICTURE 

X  (4  ). 
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02 

ACT-SHOP  TNANE 

PICTURE 

X (16). 

11700 

02 

ACT-MISSION-COOE 

PICTURE 

X  ( 2  ). 

11800 

02 

type-assignment 

PI  CTU RE 

XU). 

11900 

02 

PROGRAM-CLEMENT 

PI  CTURE 

X  (6  ). 

12C00 

02 

DPPC 

PICTURE 

X  (2  ). 

12100 

02 

PRIORI  TY-MANNI  NG 

PI  CTURE 

X(  14) . 

12200 

02 

FAC 

PI  CTU  RE 

X  (1  ), 

12100 

02 

(Jt  SIG-GRADE 

PI  CTJPE 

X(  5). 

124  00 

'.2 

P  AM  X-A •!>*£» 

PI  CTURE 

X  (5  I. 

1210 : 

42 

I’.N-  jC 

M  Ct JRF 

4(4). 
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I2t>00 

02 

SNUBC 

PTCIURE 

X  (4  ). 

12700 

02 

OLALI TY-CQDE 

PI  C  IU  FE 

X  (  1  ). 

l  2S00 

02 

cur-pfoj-allow 

PICTURE 

S9C5  ) 

12900 

02 

I  YC 

PI  C  IU  K' 

S  9  (  5  ) 

1  1300 

02 

FY1 

PI  C  TORE 

S  9  ( 5  ) 

11100 

02 

FY  2 

PI  CTU  FE 

S  9(5) 

11200 

02 

F  Y  3 

PI  CURE 

S  9  (  5  ) 

131)0 

02 

F  Y  4 

PICTUFE 

S9  (5  ) 

1  3400 

02 

F  Y5 

PI  CTU  FE 

S  9  (  5) 

13500 

02 

M)  I 

PI  CTU  PE 

S  9  (5  ) 

11600 

02 

HU  1 

PI  CTU PE 

S  9  (  5  ) 

1 1 7  u  0 

02 

*'.D2 

PI  CTUFE 

S9  (5  ) 

11800 

02 

MO  3 

P I  C  IU  FE 

34(5) 

1  390) 

02 

MO  6 

PICIU  FE 

S  9(5  ) 

14000 

02 

MD  1  2 

PICTUFE 

S9  (5) 

14100 

01  0  UT 

-REC-P. 

14200 

02 

GLT-QI SPLY1 

PICTUPE  X(IOO). 

14100 

02 

ULT-DI SPLY2 

PIC  TUFE  X (44  ) . 

144  jO 

14500  fO  LISIING 

14600  0AI4  RECOROS  ARE  PAPERl.  PAFER2. 

14700  01  PAPEP1. 

14600  02  TITLE  PICTURE  X(20). 

14  9  00  02  C1PX  PICTURE - . - * — 9. 

15000  C  2  NASTEi  PICTURE  X(69). 

151)0  0  1  PA--ER2. 

15200  02  WASTE?  PICTURE  X(l). 

155 00  02  OISPLY-FEC  PICTURE  X(lOO). 

1540  ) 

15500  WORM  NO -5  TOP  AGE  SECTION. 

15600 

15700  77  DISP-CTF  PICTURE.  S((»)  COM  P  UT  A  T I C  N  A  L“  l  VALUE  7EF0. 

15800  77  IN-RECS  PICTUFE  S9(f>  COTPUTA  TrCNAL-t  V  ALLC  2EFC. 

15900  77  OL'T-PECS  PICTURE  S)(6)  COMPUTATIONAL*!  VALUE  2 EFO. 

16000  7  7  NOR-PRINT  PICTURE  59(6)  CO M PU TA T I C N AL *  1  VALUE  7£F0. 

1  61  00  77  IN- NAME  PICTUFE  X  ( IP  >  VALUE  ”  FE  NO  J  UL  7  7  ALL/000 1 

16200  77  GUT-NAME  PICTUPE  X(lfi)  VALUE  "  FE  NC  J UL7  7  / EX TR  AC  T 

16100 

16400  PROCEDURE  01 VI  SION. 

1650C 

16600  STARTUP. 

16700  MOVE  10  Of;  TO  NHR-PRINT. 

16300  OPEN  OUTPUT  LISTING. 

16)00  OPEN  OUTPUT  OUT-FILE. 

1 7  0  0  0  OPEN  INPUT  IN-FILC. 

17100  RCAD  IN-FILE  AT  END  GO  TU  OUIT. 

172)0  MOVE  SPACES  T'J  PAPER  1 

17300  MOVE  -  THE  HEADER  RECOFD  "  TC  TITLE. 

17-00  WRITE  PAPER  1  • 

1  7500  MOVE  SPACES  TO  PAPEF?. 

17600  MOVE  IN-REC-DI SP-1  TO  DISPLT-FEC. 

177  00  UR  I  TE  P  APE  P  2  . 

17800  MOVE  I N-REC-DISP-2  TO  OISPLY-PEC. 

17700  Wfi I TE  PAPER  2  . 

18000  MOVE  IN-REC-OISP-1  TO  OISPLY-REC. 

18100  WRITE  PAPER  2 • 

18200  MOVE  SPACES  TU  PAPER2. 

18100  MOVE  IN-REC-DI SP-4  TO  OISPLY-REC. 

18400  WPITE  PAPER2  BEFORE  ADVANCING  1  LINES. 

18500 
1  8600 

18700  CYClEF. 

18300  ADO  1  TO  IN-RECS. 

16)00  READ  IN-FILE  AT  ENO  GO  TO  OUIT. 
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1V433 

1  V5'J0 
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23200 
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I F  PROJECTION-DATE 
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NOT 

MOVE 

CORRESPONDING 

IN 

-REC 

WPI  TE 

OUT-KEC . 

ADO  1 

TO  OUT-HFCS. 

ECUAL  TC  SPACES  CC  TQ  CYCLES. 
TC  CUT-FEC. 


IF 


OtSP-CTP  NOT  LESS  THAN  N8R-PRINT 
HOVE  7EF3  TO  Dl  SP-C  TR 
MOVE  SPACES  TO  FAPER1 
MOVE  IN-PECS  TO  C  TR  X 
HOVE  -  NO.  "  TO  T!  TL  E 
kRI  TE  PAPER  1 
MOVE  SPACES  TO  PAPER? 

MOVE  IN-REC-DISP-1  TO  DISPLY-REC 
kRITE  PAPtR2 

MOVE  IN-fUC-OISP-2  TO  OISPLY-RCC 


WRITE  PAPER  2 

HOVE  1N-PEC-0I SP-i  TU  OISPLT-REC 

kRI TE  PAPER2 

MOVE  SPACES  TO  PAPER2 

MOVE  IN-PEC-OI  SP-4  TO  OISFLY-REC 

kH  I  TE  PAPER  2 

MOVE  0UT-0ISPLY1  TO  OISPLY-REC 
kfil TE  PAPER? 

MOVE  SPACCS  TO  OISPLY-REC 

MOVE  OUT-BI SPLY2  TU  OISPLY-REC 

kRI TE  PAPER?  BEFORE  ADVANCING  2  LIKES. 


GO  TO  CYCLEF . 


out  t. 

CLO  SE  IN-FILE  . 

CLOSE  OLT-FILE  WITH  LOCK. 

MOVE  SPACES  TO  PAPE R 1  . 

MOVE  "  JOB  COMPLETEO"  TC  TITLE. 

HR!  IE  PAPEF1  BEFORE  ADVANCING  2  LINES. 
MOVE  SPACES  TO  PAPEPl 
MOVE  IN-RECS  TO  CTP  X. 

MOVE  "  INPUT  RECORDS"  TC  TITLE. 

WRITE  PAPER  1  BEFORE  ADVANCING  2  LINES. 
MOVE  SPACES  TO  PAPER!. 

MOVE  OUT-PECS  TO  CTPX. 

MOVE  "  OUTPUT  PECOROS"  TO  TITLE. 

WRl  TE  PAPER  I. 

STOP  RUN. 
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Routine  EXTRACT 
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15-18 
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35-36 

37 

38-43 

44-45 

46-52 

53-59 

60 

61-65 

66-69 

70 

71-74 

75-78 

79 

80-84 

85-89 

90-94 

94-99 

100-104 

105-109 

110-114 
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120-124 
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Manpower  authorization  requirements  plan  code 

Activity  type  code 
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Program  element 
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Primary  Navy  enlisted  code 
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FY3  requirement 

FY4  requirement 

FY5  requirement 
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Initial  plus  two  month  (MB2)  mobilization  requirement 
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MB 6  requirement 
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FILE  2(1  til  E  =  ”0CT //HARM/ SM  IP/AC  I ’.KtNfMJISX. 

MW’Cll  IF  =  !)»  I10CTSI7E  =S7‘).D*ti  T5M0  .05) 

IILE  J(T  iriE=*ENKF'V0lCT25H[f>”.FILEiri»E  =  !»>,<IN3  =  DI3K> 

L 

C  MF AOS  IHF  RA/IM  S4!l>  FI  ICES  0»  PiJ  AIM  PE 

C  ASSI'iNi  E'Cll  PU/PE  AM  ter  COOF 
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IFtPU.EO.LPU)  GO  ru  30 

/9  JO 

//o  o 

C 

Nf  H  PU 

MO) 

N  °  U  *  V  P  U  *  1 

/  91)0 

IF  (9PU.GT.NH  WRITE  (6.9010)  PU.PE 

0000 

>oio 

FHTMU  (21H0  E <1 R 0 0  TOO  MANY  PUS  .21  8) 

ot  oo 

IF( NPU.GT.Nl )  NPU*  N 1 

3200 

LPO*PU 

0  10  1 

NPE(NPU )* 1 

<noo 

JPE  =  1 

05  JO 

IDlNKNPU.I  .1  >  =  PJ 

05)0 

IDE  NTCNPU.l . 2)  =  PC 

0/0  0 

KPZ  *  1 

moo 

GO  TU  *0 

390) 

9000 

C 

TEST  FOR  *  NED  PE 

>ioo 

30 

Dtl  35  1*1. JPE 

9200 

KP£*1 

)3J9 

IF<  P E . E Q . IDE  4T( NPU.  1.2)  )  GO  TO  40 

94J0 

35 

CONTINUE 

05  00 

0500 

C 

NEh  PE 

9/00 

N P E  (NPU  )*NPE(  NPU  >  ♦  l 

95  00 

JPE=  JPE  ♦  l 

9  9  00 

IF( JPE .LE.N2)  GO  TO  38 

toooo 

M  RITE(6.9020)  PU.PE 

loioo 

9020 

FOR NA  T(  ?1  NO  ENRON  I QJ  N  AN  9  PES  .218) 

10200 

J“E=N2 

IJIJO 

NPC (NPU )  =  R  2 

10*0) 

3* 

I  DENI ( NPU. JPE . 1 )*  PU 

1  0500 

io:nt(npu.jpe.2)*pe 

105  )  ) 

KPE*  JPE 

10/00 

loioo 

c 

*00  rn  THE  FJtICES 

10)01 

*0 

DO  45  J  *  1  .  1  8 

1100) 

*5 

FORCE (NPU. KPE. J )  =  F JRCE( NPU.KPE. J) «•  T MP(  J ) 

11100 

GO  (J  20 

11200 

1 1  500 

c 

END  UF  FILE  -  RELEASE  INPUT  FILE 

11*00 

50 

CLOSE  ( 1.D1SP=KEEP ) 

1150) 

11500 

c 

ASSIGN  ACT-CODE 

11/00 

DO  66  1=1. NPU 

uooi 

J=NPE( t ) 

11  900 

IF  CJ.LT.l)  GO  TU  66 

12000 

DO  65  A  * 1 »  J 

12100 

L  =  NoC*NX(PUCUDE.NS.IDENT(I»K,  1) ) 

12200 

IF(L.EO.O)  GO  TO  62 

12500 

IOENM  l.K.  3)*ACTC0D(L  ) 

12*00 

10£NJ(I.K.*)*NNCU0F(L> 

12500 

c 

FLAG  ALL  ZERO  RECORDS  KITH  A  ZERO  ACT  CODE 

B-10 


L 


■ 


1  i »  .» 1 

0(1  (  t  L  -  l  .  1  '■ 

12/0  > 

IF  (Ft)  ICC  (  l»A»L  ).CI  .0.0)  Cl  10  65 

W 103 

61 

CONTINUE 

12100 

IOF.NI  (  t  >K.  1  )  =  1 

1  1001 

CO  10  b5 

1  1101 

C 

FLAG  RCOIROS  WITH  60  DICTIONARY  ENTRY 

UlfH  A  7£*0  ACF 

coor 

1  S2J0 

62 

WRI  f  E(  6. 1 10  0)  IDE  NT  (I  ,  1  >,  I  JENK  l  .  K*2  ) , (EORCE( 1 .K.L  ).L*l  . 

16) 

i  mi 

1  011 

En (MA f( l 2HGERR0R  -  66*1  15  .2I6.16E5.0) 

1 1*01 

IDE  Nr  U  .  6. 1  >  =  1 

11100 

lOENf ( I .K .6  >=NMCOOE(NS. 1) 

11601 

65 

CONTINUE 

ueoj 

66 

CONTINUE 

1  1001 

1  1101 

C 

SORT  THE  FORCES  BY  ACT-COOE 

1  6301 

N  =  (J  PU  ♦  1 

MOO 

00  36  l-l.HPJ 

16201 

L IN=N-I 

16101 

IF  (LIN.LT. ?)  CO  TO  85 

16  601 

00  30  J  =2»L  13 

16101 

1F(  IOFNT( J-l. 1.  D.LE. [BENT! J» 1. 1) )  GJ  TO 

30 

16600 

I HULO  * M PE C  J“l ) 

16201 

NPl(  1-1  >=NPC( J) 

1610) 

N  PE  (  J  )  = IH1L0 

16101 

00  25  5=1. N2 

16  00  ) 

UO  2  0  L  =  1 . 1 6 

1  j  1  GO 

XM0L0=F0RC£(J*1.K.L ) 

l>210 

FORCE  (  J-1.K.L)  =  FI)RCE(  J.K.l) 

16  1)1 

20 

FORCE! J. 3. L  )  =  XHOLO 

1  j  6  0 1 

00  25  L  =1 .6 

165  19 

IHOLO-tOENT (J“|.K»L) 

l  6o  Jl 

I0ENI(J-1.K»L)=IJENT(J»K.L) 

i >ro ) 

I  0E  NI  (  J  ,K,L  )=  IHOLD 

16100 

25 

CORTI NOE 

l  jlOl 

30 

CO  ITINUF 

loOOl 

36 

CONTINUE 

1  =  131 

c 

16201 

c 

COUNT  THE  NUMBER  OF  ACT  CnDES  ANO  THE  NUMBER  OF  RECORDS 

IN  EACH 

lb  101 

l AC  T  =- l 00 

1»6  0  ) 

N  A  C  =  J 

1  o5u  ) 

00  260  1  =  1.  API) 

l  6601 

DO  260  J=t»NPE(  l  ) 

162  01 

IF  (  I  ACT.FQ.IOENMI  ,J.  51)  GO  TO  210 

lbaoi 

IACT- IOEN  T (  I. J. 1) 

16  600 

NAC=NAC»t 

12  )J) 

IF  (NAC.GT.M1)  WRITE  (6.200)  Ml 

1/103 

IE  (NAC.GT.M1)  N  A  C  *  N 1 

12201 

201 

FORMAT  (*  INCREASE  ARRAY  SI2E  -  MORE  THAN 

-.11."  ACT  COOES 

*) 

12  in 

IRC  N 30  =  0 

12601 

213 

H R< NAC ) =NR( NAC  )  »1 

1/600 

IE  (NR(HAC).GT.M?)  W.IIIE  (6.221)  M2 

1/601 

220 

FORMAT  ("  INCREASE  ARRAY  SIZE  -  MOKE  THAN 

".11.*  RECORDS  IN  AN  ACT 

1/203 

•  cior*) 

12101 

IF  (NR(NAC).GT. M2)  NR(NAC)=N2 

12100 

K*NR ( N  AC > 

1  1001 

00  210  1=1.6 

11100 

210 

JOE  NT (NAC. K.L)*  I0ENT(  I.  J.l) 

16201 

DO  ?J5  L *  1 . 1 6 

1  6100 

215 

FORCE 2( NAC.K.L )=FORCE( I.J.L ) 

16601 

260 

CONTI NUF 

13503 

250 

CON  T I NUF 

1660  > 

16201 

c 

SORT  FORCES  BY  PE  WITHIN  EACH  ACT 

1  #301 

00  120  1=1. NAC 

13900 

N«NR( I ) 

B— 1 1 


ytmmLi 


:  >  u  j  > 
*  ^  i  j  •> 
lliQ  > 
IVJJ> 
i  yxoo 

I  )  >0  > 

i  >a  n 
t  y/ai 

i  /a  j ) 

1  oou 
4000  > 
<•0  100 
U4  >  > 
40  loi 
4  JN  01 
?  o  so  i 
4 ob o ) 
n/ui 

40  >01 
4(  001 
4  U  )  > 
4  i  i  o  o 
e  1 5  o  > 
21630 

4 1  500 
41600 
21  /ui 
41  AO'I 
’1  •>■>) 
Z4  >01 
.VI  0  > 
22200 
2413  1 
246  00 
44  »j1 
44600 
24/00 
44  100 
24»J  1 
41101 
41(01 
4  1401 
4111) 
4  1600 
4  150.) 
4  1.00 
4  1/00 
41100 
41  >11 
46  100 
16  100 
26  >00 
46  1)0 
46600 
46  500 
4  6-.  J  J 


(ml 

00  II 0  Nl.N 
L I (= 1-  I 

IF  CLM.lT.il  60  Til  110 
U'l  II.)  (:.M|( 

IF(  )JF II ( I ,K-l. 1  ).lf. JOENTC I.K.4) >  60  HI  100 

DO  •>  4  L  ■>  1  .  I  6 

XHIll  J  •  (  OrtCt  ’U>(*lil  ) 

Foie:  *  (  I  »  K- 1 »  L  >  r  I)  0 C I  4 (  1 . 1  *  L  > 
yj  F01CF  4(  |  ,(|,L)-XHOLO 
0  0  ■>  5  L  2  1  .  6 
I  HOL.)  =  J  OFM  I  (I.K-I.L) 

J QC  Nl  ( l  »  K “I «L1*J0EN1( I »  K» L  > 

>5  ODI  VIU  .K.L  >21I0|.D 
100  CONTI NJF 
no  co.NTiNur 

140  CONTINUE 

c  dirt  Nf k  r  rtt 

Nl  1  10 

Oil  )/,)  I  I.NAC 
J  V9(  I  ) 

00  I/O  K  2 1 , J 

IT  (  lOENM  l  »<.  JI.FU.O)  GO  10  1/0 

W1ITE(2.4060>  JOrNT(I.K»l>»JOFNT(I,K.4>,JDLNI(l»K.l >. 

•  (FlHCEKt.K.t >.L2l»lb) 

2060  FORMAT  (l6.lo.l6.lb)b.J> 

nl  -  nl  n 

|F(NL.LF.?5>  GO  M  165 

W»1 TE(b.20o0>  lL.l  im.H9l) 

1000  f  ORMA  T{  Ml  4  I  X.  4<  IX.  Ill  AC  T  >  .  4  X.  4.IPE  ,  6X.4HP0  / 

•  JX.4MN»ME»4X»4HC00F,4(lX.4MCOOf,lX>.lX.lbI6/» 

NL  =  0 

165  R«ITE(b.4040>  JOT  N  I  (  I  .  X  .  6  )  .  JO EN  I  (  l  ,  K .  I  )  ,  JOE  N  T  (  I  .  N.  4  >  .10 T N T  C  I .  N .  1  ) 

•  .  (FORCE  ?(  l»K»L)»L*l»lb) 

2070  FORMA  T l  1H0.2X.A6.2X.16.2X.I6.2X.I6.1X.  16F6.0) 

1/0  CONTINUE 

CLOSE  (  2,01  Sr*2  CRUNCH) 

STOP 

FNO 


C«...... . . . . . 

INTEl.FM  FUNCTION  NSCANX C N.L . 1 > 

C 

C  i  F  A  P  C  M  ELEME.N  T  S  I  -L  OF  AIIRAY  M  FOR  AN  OCCURANCE  OF  I 

b 

OMCMSION  Mill 
J*L 

5  iri N( J) . IS. I )  GO  TO  10 
J2J-I 

IF  (J.OT.O)  GO  111  5 
J*0 

10  NSCANX.J 
Rf I  URN 
ENO 
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Routine  FORCES,  ship  version 


Routine  FORCES,  ship  version 


■ 
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ANNEX  B-4 

PROGRAM  FORCES, 
AIRCRAFT  VERSION 


iresci  free 

ASLT  AUTlMINU 

AUDIO  *  FNUI"  CVA/ll)/* 

file  i  u  ntt  =  *ur  r/7nt.»N/Ain-.r  ilft  tpe^h.kinosois'o 

FILE  7<|  I  T//N ARM /AIR/ ACT* .KINO- DISK, 

•  oNiis->.a  i  >:., iaxnec iiir*t  j.blocssi  ze=s/  j ) 

file  sti  iile^'Enifp/iici /  /,  t  I’.riLETYPE^'t.KiNtuoiSK) 

file  aui-io-pni  ite°» 

C 

C  <E»OS  IFF  6ARN  A/C  FflOCFS  ,IY  Pu  AN  J  -*F 

C  UFLfIri  SARINT  AIR 

C  OElEIE,  NON-..OJ  AJRU”  MR 

C  ASSIGN*  EAEH  P'J/PE  AN  ACT  C0l)F 

C  SORTS  ti  Y  ACF/RE/’U 

C  XPI I E S  AN  ENREP  FILE 

u  INPUTS  =  l  -  MM'<  FILE  SIHTtO  BYE  p.j  THEN  PE  COOES  IN 

i  ASC  rNO I NG  ORDER 

u  J  -  aci/pe/pu  uictiona  <y 

C  OUTPUTS  =  2  -  ENREP  file 

c 

C  I  HE  <UR"  AUCRAFI  FILE  CONTAIN*  FPRCCS  fjl  1  YEARS* 

C  ALTHOUGH  THE  DATA  FOR  YFARS  b-l  ARE  THE  SANE 

C 

DINF.isiOl  F  JRCFC  IJ.  55.15),  l  OE  «  T  <  51,  J  »,  4  )  »  THP<14).  NPF  <701), 

•  Ar'ITCr.'Y  22). 16).  INDE  X  C  ?  ?  %  4  )  .  Nll(m),  NPt)<  770 ,20)  . 

•  r.ORC F <  201 , 15  » 1 M  «  JuFNT<  201.  15.4). 

•  "C T  C 1 J  < 2  7-)  ) ,  NNC01 r<  ?P'> )  ,  P  J  C  J1E  (  220  )  ,  PECOt)f<  221)  , 

•  S1!)PE<4<») 

E  Ou  I V AL r  * CE  <GilRCF(l).rnSCE(l)>,  < I1ENT< l ).  I0CNT11 > > 

INTEGER  PU,  PE,  A  C I  •  ACICOO.  PUCilOE ,  PECIUC.  SGDPE 
U  A  (  A  SLOPE  /  11115',  741142.  74  1  IS  7  •  741152,  74  115  7.  2411)7. 


741 422. 

741442, 

241457, 

74 1517. 

74157?. 

24 1557. 

741  547. 

2415,2, 

241552. 

742522, 

742552. 

747547. 

247427, 

2424  5  ', 

742447, 

247512. 

242622, 

2450 37, 

744557, 

J5  1  12', 

.551  512. 

5  2 J 1 12, 

57  1127. 

S»51 57. 

S’  1 1  ,7, 

52 5  IC2. 

5251/2. 

575242, 

521 2>7. 

575762, 

5  ’I  522. 

<’111?, 

57 J4 17, 

171/17, 

52  5  /'/2, 

241467, 

rl  7/  UP, 

"4/417. 

2  4/4  2.7, 

64/457/ 

C  'it AO  T:tF  ACI/Pf  /PU  0  l  C  I  I  JNARIF.S 

•DAOI  S,4J5.i1  -JC 
4050  F0HHAIEPI5) 

HTITE  <5,401 )» 

4010  FJNNAf  <mi/4».-THF.  VCT/PE/PU  DICTIONARY  IS:"/ 

•  l  X.  ThNil.,  U  ,  IHACT.oX.  ?ilPC.4X.4;|NANE  ,SX.  7HPJ  /  ) 

Oil  100  1  M.NC 

HE  A  C<  5,4  0!)))  ACTCOOCI).  Pr  CODE I  I),  NMCOOE(I),  PUCUOEd) 

,10  H'UTL  <5.40.70)  l.  ACICJO<!).  PECUOECI).  IMCilOECI).  »UC30E<I) 
4020  F  OK  NAT  <14,16.1 N.2X. 46. IP) 

4  000  FOK’MT< I  4, 7 X, In,  Vt  • A6.2X.I6) 


UIIUALI/f  variables 


i  Y.l*l»7  3 
t<l),*IC 

Pocnari 771) *0 
PEC1JE<771) *0 


•  SETTING  THE  'USE  YEAR  TO  IRM 
200  PJ  COOLS  NAX 
IS  »£  C  IJES  PE  X  PH  NAX 
JO  ACT  COOES  NAX 
IS  RE  COR  OS  PER  ACT  CODE 


u.i'JJ 

.i^aj':(22)>  ••on 

»!•)) 

ACI C33( 721) =0 

u40 ) 

Nl- 209 

o5J0 

N»-'  14 

b6J) 

H  1  =  5o 

.»/)  > 

12  =  l. 

11J  ) 

1)1  19  1  -  t  »  N  l 

o)0) 

31)  1  )  )  =  1 »  .4  2 

/99) 

U)  19  5*1. If 

/  13) 

13 

un.«  cc  c  ( .  j.*  )=9. 

/200 

JTY-9 

/  533 

NIC  *9 

/<.)) 

np  =  o 

/  53  3 

/699 

C 

SNIP  ).«/“  ilEADErt  NFCO.IO 

/  /oi 

KC*)  (1.4966)  MP 

/<i)9 

4049 

fOlNU  (16  16) 

/9  09 

391  TC  (6.49/9)  T*P 

.933  ) 

4  0/3 

F0.9P4T  (1H1.  t9\6/U./,«n> 

1UI 

C 

)2J  l 

c 

«EAC  FORCES  ‘ir  P U /  '  F 

15  >3 

c 

)ELfTE  1491  >lf  4/C  -  91'.  IT  a  OF  PE  IS  1  5 

a*J9 

c 

JELE  IE  NUN-50UA.9I<0\  A/C  -  PE  NUT  [  <  ARRAY  S)0 

15)9 

c 

irPUC.Tt  YE»*>  9  OVFR  YC4RS  10-16 

6533 

c 

RCAOVE  CL (I  PEN  1  f SOP  THE  PU  C03E  (DIGITS  /-A) 

J/ 99 

29 

NF10(!»4  940»EN9*59>  I’ll.  PE  .  (  T  4P(  l  ) .  I  *  1 .  4  ) 

1 19  ) 

4  04  9 

F  0 R  w \ T  (M.  2X.  I  6.  1  V(.  5IX.9F1  5.9) 

o  )99 

I-PE-(PE/t  ))«1) 

99  J) 

IF  a.C9.  5)  6.9  r.)  21 

911) 

I  =  NSC4N*(  inni»E.4o,Pr  ) 

9231 

IF  (1.EQ.1)  69  Til  20 

9  59) 

ui)  2>  1*10.14 

949) 

25 

Ill'll  )=TMPl  )) 

9593 

PIJ=PJ/100 

969) 

•999) 

C 

TES  T  F,i  1  A  NE  3  PU 

9  19) 

IFIPJ.C3.JIY)  JO  TO  59 

9  9  9  > 

19)9) 

c 

NCo  PU 

111  99 

NP=NP»1 

192)9 

IF  ('lP.ai.i)l)  4KITE  (6.901.1)  PJ,"E 

19  593 

9419 

f  OMIT  (2tHf  Ft?  1 09  TOO  9ANY  ^UJ  .21  S ) 

l  0 99 

(  F(  N'*.  4  T  •  Nl  )  NP**r| 

1959) 

J  T Y  *  PJ 

106)3 

NPc.  (  IP  )*  1 

13999 

Jf’E  =  1 

10199 

JOENKNP.1.1  )=PU 

19990 

J0ENTC1P.  1.  ?)  =  PC 

110)9 

KPc  *  1 

1110) 

60  IJ  43 

11  23) 

11191 

C 

TEjT  F09  A  NErf  Pt* 

11499 

50 

60  54  l=l.JPE 

11593 

KPE  =1 

11690 

IFtPE.EO. JUfNT(NP.| .2 ))  00  T1  4) 

112  09 

55 

CONTIN'JF 

11399 

11993 

C 

or  w  pe 

120  91 

npe(.ip)*npeup)*i 

12190 

J°C* JPC*1 

12290 

IF( JPF.LE.N?)  30  10  Ill 

12  590 

*91 TC(6./02C)  PU.PE 

12499 

1020 

FQKHAf ( 21H0  E910R  TO)  NANY  PCS  .210) 

12530 

JPE»N2 
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1 1->  J  t 

H\-  (  (P  1  «*? 

12201 

1.1 

J.ILN1C  NP.  IPE.  1  >  =  P'J 

125)) 

j  if  iiic.p.  jpr»2>^pr 

I2iui 

KPl  =  IPE 

t  i 0)1 

i  1100 

c 

no  n  tie  forces 

lJ2j) 

4  J 

00  45  J=  1  .  1 6 

HIM 

45 

UUrfCr.CNPfKPF.  I)-514CE(NP.KPF.  JMT-PC.tl 

1  S'.  00 

oi  r  j  2i 

l  S5  01 

l  isn 

c 

L  NO  UF  FILE  -  RELEASE  INPUT  FILF 

l  i  /•  J  J 

5) 

ULUS-  tl.OI$P*KEEPl 

l  M  JO 

c 

ASSIGN  »CT-Cinf 

UOJ) 

>*4  C  -  0 

HIM 

0(1  6-.  I  =  l.MP 

142U) 

l=NPEll  ) 

l*  D1 

ill  6  =  1  -  1  .  J 

I4W3 

t 

look  i<  oicthnart 

l  450  J 

on  56  L  =  1  *  NO 

14601 

IE  (P  JCOOET  L  l.NE  ..ItlENTC  l  »K  .  1 1  >  on  TO  54 

142J0 

1F(Pl  C  11ECL  l.NC.  JOENKI  ,K.  _»1  1  GO  T  J  5  fl 

14  U  J 

<il  TO  ol 

14  J  )  ') 

54 

CONTI  0 Jl 

lion 

c 

40  TAICH  -  POINT  MESSAGE  -  IGNORE 

15100 

WTlTECo.llUOl  JOENU  I.  K.  1).  JOEN  T( t .A. 2).  (  G1 ICECI  .  K.L  )  »L  *  1 .  1  i  ) 

15  20  J 

1000 

E0  INI  rc  1  EHUERROR  -  NIIAT  is  .1 H.TIO.IOFS.O) 

1  jIJO 

GO  fl  66 

I54JJ 

c 

IE  NO  AIRCRAFT  ASSOCIATED  WITH  THIS  PU2PE  IGNORE  II 

l>5jl 

6) 

JO  51  4=1.16 

15  6)1 

IE  CG1RCEC  I.K.R1.GT.0I  GO  10  61 

152  J1 

5» 

CONTINUE 

15101 

go  r )  >j r» 

15  »J1 

c 

MOO  «AICH 

1  a  0  .11 

61 

N  Z  -•  NC  »  l 

um 

if  f NC..'.r.2?n  write  to.ioon 

162J1 

1001 

FlRPAT  C  INCREASE  SI2E  IE  ARRAT.  INOEX,  -  MJRE  THAN  220  TNPJI  REC 

1  5  iu  ) 

•HUS* 1 

164)1 

IElNC.it.22Cl  NC-R/O 

1  o5  J  ) 

IMjEXCnC.I  1=  ACT  CO  lit  1 

1  OiiO 1 

injeai  ,c»2>=p rcnoE(L) 

162)0 

1  Nir*I  NC.  11  =Jlf NIC  1  .K  .  1 1 

1  .j  0  )  ) 

i  n  j  r  a  c ic. 4 1 =N4cnorii i 

lo>Jl 

HO  62  "  -  1  •  1  Ei 

1200) 

62 

ae  i"cr(  vc  .>•  )=Gi*2crt  r»4»“i 

1/  10) 

6t> 

CONTINUE 

1/2J) 

12  101 

c 

Jill  THE  FORCES  HY  ACT-COOE 

124)0 

H  -  N  C  *  I 

12501 

00  *5  1=1. AC 

126)0 

LM'I-I 

122)1 

IE  (LtP.LT.?!  G1  TO  OS 

1/5)0 

CO  b«  J  = { »L  M 

1  2VJ  1 

in  I  40EXC  J-l.  1  1.1.2.  TNOFtC  J»  1)  )  GU  TC  "4 

1  40)  ) 

01  2  >  <=1.4 

IrttOl 

IH)LO*l'IOEX(  J-  1  *  H  > 

152)) 

iNur<cj-i.Ki=tNoex(.i.x> 

16)00 

25 

I*loEXCJ.N)=  MIL! 

1  J4  00 

0.1  HO  1*1*16 

16500 

XHOL)=AFORCECJ-t»PT 

1  a  ■>  J  1 

AFiRCEt  J-;.E  I’AfUTTCEI  J»N1 

14  2)i) 

60 

AEJ1CEC  J.TMXHOLU 

1  0.000 

44 

C.1NTINJE 

1  6900 

65 

CONTINUE 

I  J1J  ) 

1 9  l ) ) 
1920) 
l  y  5  J  J 
195, n 
l  9  >  <  > 
l  >60  ) 

i  ■»  r  j  j 
i  /s )  j 

1  j  zoo 

20  0  03 
20100 
20200 

20  500 

2  »  5 , ) 
20  0  00 
2  0 1*  J  0 
20/0  ) 
20  000 
2uo  n 
210.)  ) 
2110) 
212)) 

21  50) 
21  '.00 
21  50  0 
21  SO) 
21 '0  ) 
21  )J  ) 

21  >03 
2200  ) 
2210) 
2220) 

22  5  00 
2250) 
2<.Sj) 
'2250  ) 
22/03 
22  900 
2  2  00  ) 
20303 
2  5100 
2  52)0 
25  50  ) 
2  5503 
2  5  >10 
2ibOO 
>i/3) 
2  5  30  3 
25903 
2  5  003 
25103 
2520) 
25503 
255  )0 
25  SO) 
25b)0 
25/03 
25  00) 
2590) 
2  >  0  J  ) 
2  >  1  3  0 
25  20  3 
2)503 


C  COUNT  NUW0C9  0/  ACT  IVITtCS 

C  ANO  WITHIN  C  ACM  THE  NUH  BCR  OF  HFCOHOS 

>X  \C-3 

i ac  no 

0  2  23''  I=t.NC 

ifu  act  .to.  indexi  i»  i ) )  go  ro  ?oo 

WC-'i  S  C  ♦  ’ 

If  C-IAu-uT.Ml  »  W'irr  (t>  ,  1  9  )  )  HI 

19/  f)rur  (-  INCREASE  Sl/c  OF  ARRAYS.  FORCE  >  1 OEN  T,  -  NOTE  HUH  *.I2 
•»*  ACT  COOES” 3 
IF(  NAC.GI.i5l)  NAC*N1 
i  ac  r=  r me <(  i.i ) 

N  U  NAC ) =0 

20)  ;m‘i\c)*5'(t3(C)*i 

i ac  r )  i 
L  I  =  1 

IF  (141 1  I.GT.M?)  ME  1 1 F  <b.209>  H? 

209  FOHMAT  ("  l  N'C^E  ASr  SI  U  OF  ARRAYS,  FORCE  ♦  IJ/5T,  -  SORE  THAI  m,\> 
•  *"  KtC'JHOi  H  AN  ACT  CODE") 

i  F  t  M  '(1  i.  51  .  v>)  .YH(  1>  =  H2 
L  '  =  •)((  l  ) 

L  5  -  3 

210  If  (LI.GT.L?)  GO  FO  ?->i 
UO  223  I*L1 *L2 

JO  21S  ,1=1.5 
KM -l  5 

215  ID.  Nf (I ACT.K, J|=fNJEXfI.J> 

J  O  2  .’0  J=l»lo 
K = l -L J 

22)  f  ORC'.t  I  act.k. J)=»FQRCE( I. J) 

221  H-LtANfX  f  ACT  ) 

L  t*Li»NH(  ucn 
T5CT-IACTM 

IF  CiRt tACT  ).GT.M2 )  WHITE  C5,209>  HZ 
If I N<C l AC  T >. 5T . P?>  VR( I  ACT )>H? 

L2=L2»NR(  t»Cr  ) 

IF<  IACT-1  f-V\C  »  GO  TO  21) 

C  SDI'I  Fl)SCF>  RY  PE  WITHIN  EACH  ACT 

00  1V0  1=1, NAG 
N=  .  >t  I  ) 

A  =  N  *  1 

0  0  113  J  =  1  •  N 
L 

If  (LIH.LT.2)  „0  Tt)  UO 
0  0  100  K=  ?• El N 

IF!  I  JF'lTC  I. K-l.  2).ir.  IOENTC  l,K»?)  )  GO  TO  103 
JO  9  J  l  = l . 1 F 
AHJLJ’FOkCE U.K-l.L ) 
fOHCcCI »K-1 »L )  =  f 09CEI I, K,L  > 

90  FOHCClI»S«L)=XUnLO 
UO  9  5  E  =  1 , 5 
I  HOE J  =  I OEN  T  T I ,S- 1 ,L ) 

IOC *11(1  »K-1  »E>=  IOENK  I»K»L  ) 

35  Il)CNI(l,X,L)  =  It)OLO 
103  CONTINUE 
110  CONTINUE 
12C  CU..TINUF 

C  W  II  IE  NEW  FILE 

NE  = t DO 

oa  1/0  1*1, NAC 
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'..6  1 1 
20)01 
2S60) 
21/00 
2)311 
23  >J  ) 
’»')  J1 
2ol  a >: 
2o.?u  i 
26  30  ) 
266  01 
?o5oa 
26600 
2»/0) 
2  o  3  0  a 

?»ao  > 
2/  000 
2/10) 
2/201 
2/  501 
2/60) 
2/601 
2/60) 
2//00 
2/500 
2/101 
2300  > 
2d  10  ) 
20  20) 
2 0  50  ) 
2d*01 
2d50 ) 
236  0) 


.1-.  <1  l  ) 

JO  I/O  1  =  1.  J 

dll  ICC  2. 2060)  1  lord  Tf  I.K.L  > .1  =  1 »  J ) »l/0*C£{ I  .15 .1  ).L«1  .  16) 
20*  0  rntHH  (  I  *•  In.  I  6.  1 6/6.0  1 
Nl  =  NL  *  1 

1F(NL.L/.2S)  Gd  10  1/1 

Will;  <6.2(19))  <l.L  =  11/3»  1115) 

20  0.1  fiHMAIl  1  11/6*.  3H6/C.6X,  5M*CT.*<  .2HI*F.6X.2H2U/ 

•  1*.  5X.*HCOJC.2(  5X.6HCOOC.1XI.1X.  16(6/1 

NL=1 

1/0  mu  li  t  o. 2020)  I  OENT  (  1  .K  .6  ).  (  1  It  NT  1 1  .K.L  ).L  =  1.  5  ) 

•  .  <riRCC<!.X»L).L=l.l(») 

202  J  r<H  5U<  lill.U.  »6.  2X.I  6.  2X.  I  6.  ?X.|  6.  IX.  I  6/6.0) 

CL1SC  <  2. 01  S2  =  C9(JVCHI 

iTDP 

ENJ 


l'  IfCOEJ  FUNCT1JN  NSC6NX (1.L • I ) 

C  St  X  tCH  tLETENTS  1-L  or  60 R6T  M  FIR  6M  OCCURXNCC  IF  1 

JlHFNSlvJN  5(11 

i  IFMC  n.is.tl  GO  TO  10 
J=J-1 

IF  IJ.ul.O)  GO  TJ  S 
J  =  0 

10  \SC6.<X  =  .l 
KC I  URN 
E  No 
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Routine  FORCES,  air  version 


8«<s 
<  uj  E 
£u.>< 


O^WtN 

(r  UJH 

to  I  DC  ^ 
5*"03 

3  u.  z 


Ui  CO 

h  £D  Z  UJ 

<  D  -  O 
4-z<u 

°z  z  h 

tr  iu  -  ^ 
hi  x  “  ** 
cdh5i 

i§°« 

Z<DUi 

kSS:Z 

Z  oj  UJ  5: 

DQ^K 

OOJ!;r 


Hi  O  - 
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Ptt1" 

u^>o 

<  ?  s.o 

H  CO  UJ  U 

l5Qh 

888« 


oO< 
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ANNEX  B-5 


SQUADRON  PROGRAM  ELEMENTS 


TITLE 


Fleet  ballistic  missile  control  systems  command 


11315N 


A-6  squadrons 


A-18  squadrons 


24136N 


24144N 


F-18  squadrons 

Carrier  on-deck  squadrons 


24145N 


24151N 


24152N 


Reconnaissance  squadrons 


24153N 


24154N 


24155N 


24156N 


24233N 


24234N 


AV-8B  squadrons 


24242N 


Light  air  multi-purpose  systems 


24243N 


AV8A  squadrons 


24244N 


24251N 


24262N 

Readiness  squadrons 

24303N 

Air  mine  countermeasure  squadrons 

24453N 

Direct  support  squadrons  aircraft 

35112N 

Oceanography 

35131N 

Mapping,  charting,  geodesy 

52311N 

A-4  squadrons 

52313N 

A- 7  squadrons 

52316N 

F-8  squadrons 

52317N 

F-4  squadrons 

52324N 

Early  warning  aircraft  squadrons 

52325N 

Reconnaissance  squadrons 

42326N 

Sea  based  electronic  warfare  squadrons 

52332N 

SH-3  squadrons 

52333N 

S-3  squadrons 

52341N 

Anti-submarine  warfare  patrol  squadrons 

52371N 

Coastal  and  river  forces 

52379N 

Direct  support  squadrons,  aircraft 

84741N 

Undergraduate  pilot  training 

84742N 

Undergraduate  navigators  training 

84743N 

Other  flight  training 

^ . :•  : - - - - 


NOnM  I  Li  :  ENilCi'/i  Au  I  0- j7LD  JL  (■.  67 i  1/ ( 7  ) 


IOC 

20C 

300 

uo 

500 
600 
7  0  C 
800 
90C 
1000 
1  too 
1200 
1300 
1400 
1  5  CC 
1600 

1  70  C 
1800 
1900 
2000 
2100 
2200 

2  30 C 
2400 
2500 
2600 
2  700 

2  8CC 
2900 
3000 

3  100 
J20C 
3  300 
3  40C 
3  300 
3  60  C 

3  70  C 
38CC 
3900 
4000 

4  100 
4  2  CC 
4  30C 
4  40  C 
4500 
4600 

4  70  C 
4800 
4900 
500C 
5100 
5200 

5  30  C 
5400 
5500 
5600 
5700 

;eoc 

5900 

60cO 

6100 


IPESEI  FREE 

1SE 1  AU1CBJND 

IB  1  NO  =  FROM  CN»/LlB/  = 

FILE  1(11  (LE*’,REFejUL7  7  7  ACm*.KIN0*PETAPE.FlLETYPEM) 

FILE  2<MTLC-,,CCT77NARp/SFACTCRS /SHIP". KIN0=  DISK. TILET  VP  E*B) 

FILE  3 (K! N0=PF  INTER > 

FILE  4UITL  E  =  -ENFlP/CICt/ SHIP". MNO=  DISK. FILE1YPEM) 

FILE  5 (II  IL£="ENF£P/FACtORS/SHIPOATA".KINO=OISK.FlLETYPE=8J 
FILE  8(K1N0=PETAPE.TITLE="ENR£P/INITREQ/SHIP".BL0CKSI2E*V99. 

»  PA XP ECS  I  ZE  = 999.  SEPI ALNO=  000565) 

FILE  9 (KINO  =  01 SK.MAKPECS  1 7 E  =  9 9 9  .  ELOC K  SI  ZE=999.AREASI 2E-I0 ) 

FILE  1CCKINC=0I SK.MAXRECS I ZE= 999  . BLOCKS l 7£*999.AREASI ZE= 10  I 
FILE  11(KIN0=CISK.MAXRECSIZE=«99.8L0CKSIZ£*999» AREASIZE=10I 
FILE  l2(KIN0*CISK.MAXFECSIZE*999.BLQCKSt2£*999»AREASIZE*t0> 

FILE  13(K  I N C=  C I SP.MAXFECS I Z E= 99 9 .BLOCK S I 7E=999,  AR  £  ASI ZE= 1 0 ) 

C 

C  CREATES  A  UNIT  FEOUIPCPfNTS  MATRIX  FOR  EACH  ACT/PE/RO 

C  C  C  P  6  I NAT  TON  IN  EACH  TEAR.  PATINO  8Y  PAVGRAOE 

C  THE  CUALITY  NIX  IS  DETAINED  FR  ON  THE  BILLET  FILE 

C  FT  ACT  AND  PE 

C  AND  THE  FACTQFS  ARE  OBTAINED  FROH  THE  NARH 

C  6  T  PE  ARC  PU 

C 

C  FILE  1  »  RENLCUAL  FILE  SORTED  BY  act  CODE  AND  THEN  BY  PE  CODE. 

C  BOTH  IN  ASCENDING  ORDER 

C  FILE  2  =  NARP  FACTCP  FILE  SORTED  BY  PU  CODE  THEN  BY  PE  COOC 

C  THEN  BY  FACTOR  SEOLENCE  NUMBER.  ALL  IN  ASCENC1NG 

C  CPCER 

C  FILE  3  =  OUTPUT  LISTING 

C  FILE  4  =  THE  ACT/PE/PU  CICTIONARY  SORTED  BY  ACT  COOE  THEN  BY 

C  PE  CODE  THEN  BY  PE  CODE.  ALL  IN  ASCENDING  OROER 

C  FILE  5  ’  USER  INPUT 

C  FILE  6  =  OUTPUT  LI  STING 

C  FILE  f  =  THE  UNIT  REOUIPEHENTS  MATRICES 

C  FILES  9-13  =  STORAGE 

C 

COMMON  /SA/  ACTC0DU91).  NMC0DE(191).  PUC0DEC191).  PECODEC  191). 

•  INCEXC191  .2  1,  N M  1  .  NM2.  SHIP.  AIR 

CCMMCN  711/  NAPMC95.3C.151.  8 T L LE T  (5 . 1 1 C . 9  1 .  PPG  X Y < 35 . 1 5  1  .  MREC. 

•  FIND.  FLAG.  NTYP.  MTYP.  NP.  PRXC.  IACT.  NA.  IPC>  NL 
CCPMCN  /  S  2  /  I F  A .  KPG.  JFE0<5>.  KREQ(5>»  IR 

CCPMCN  713/  BILLTNC5. 1 10 .9 ) 

CCPMCN  7107  JPATECIIC).  UK 

CIPEFSICN  IFAFMC95.30.15  J.  ST0REU2480) 

ECUl VALENCE  (INARM(I),  NAFP(1 1.  STOFE(l)» 

IMEGEF  ACICCO.  PLCOCE.  PECCOE.  F  INC.  AIR.  SHIP. 

•  FFCXY.  PFXC.  ACT.  PE.  FLAG.  OK.  A.  8 
REAL  NAFM 

DATA  I8LK76F  7 

C  A  I  A  SHIP74FSHIP7.  AIR/4HA/C  / 

OATA  OK/6HCKCKOK7 

DATA  JR  A  TE/4HF  10C.4HC  l  5C  .  4  Hf  »D.>  .  4HC  250 . 4H  0  30  0  »4H0  550 . 4H0  40  0 . 4H0  4CI 

•  .4H0404.4HC450.4FC5CC.4Hf603.4H0601.4H0602.4H3604.4HO BO C.4H0801 

•  .  <HOe0  2.4H0  8C3.4HCM0.4H0903 . 4H  1CCC  .4HICC  1 .4H  ICO  2 . 4H1C  10  *  4H  1C8C 

•  >4H11UC.4h120C.4F140C.4H1503.4H1611.4H1622.4H1653.4H1644.4H1(55 

•  . 4H166E.4H1 7C0.4H17C 1 . 4H1 750.4H1 800. 4H1 900 . 4H200 0 . 4H 210 0 . 4M 2 20 0 

•  .4H8  5C0  .4H2  290.4H23C0.4H24  90.4H2  6CC.4H27C0.4H3100.4H320  0  .4H330C 

•  .  4H3  7CC  .4H380  0.4F3  90C. 4H400  0.  4H 4 0 20 . 4H4 1 C C .4H 4 20 0 . 4H4 300 . 4H 4 60 0 
»  »4H47CO»4H440C.4H5C80»4H51C).4H53CC.4H5380»4H541D.4H 5500. 4H5 600 

•  .4H5  70C  .4H5e00.4H60  8C.4H61BJ.4H6  200. 4H6 2C 3 .4 H62C 6. 4H6 30 C . 4H6 3 10 

•  , 4H6  4C0  >4h6500.4H652C. 4H6600. 4H6 700. 4H6 7C 4, 4H670 5. 4H670 6. 4H 6*00 
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?  /  j  ; 

»0ur- 

VI  sG 
V  ?  0  0 
?5C""> 
S4  jC 
ib..  3 
Vi  •„■  0 

v ;  ;c 

VPm  J 
V9CC 
l  j  0  G  0 

I  Jt  vW 

!  J  '  •; 3 

1  C  i  0  c 

t  J  4  J  ~I 

I3b&0 
1  OfauC 

1 0  7  j  0 

i  o 3  l  r. 

1  C^uG 

no. 3 
tl  us 

U7oC 

Uli/O 

t  UuO 

1 1  buO 
llauC 
117  0  0 
: : 3  o  c 

1  1VO0 
1  2  00  f 
1210  0 

12  2)0 
1 2  1  j  i 
12iv.O 


*  »4Hb  '<0C,,4hbN01.4P.,  /„?»  4H6  AU  J.  411/  OCC.  VII  71  CC.4H72  sO.Ail  7  1  )  /.Ail  7  but 

*  .0117,0  1 . 41(7,  oj  ,4  H7  b .,  T.4n74C  1 . 4 II 7  fa  0 . 4H  7  7  0 1  .4HCD0'  .4MP590  .4Hi6C9 

*  .4HbG0O.4lifa0Mu.4P7P0Q/ 

C 

C  READ  FCRCE  INDICATOR.  SUP  0)  AIR 

READ  (S.lOjOJ  FINC 
1000  F  CRM  AT  <  A4  ) 

IF  (1  JNO.NF  .Shll'  )  F  1  N  0  -  A  I R 
WRITE  (fa.  1040  )  FIND 

1040  F  CFMAT ( 1H0.PX.A4."  UNIT  REQUIREMENTS  MATRICES  APE  HE  I  Mu  CREATEO  .") 
C 

C  FEAD  C  I  T  T 10 MART  ACT/PE/PU 

call  rdsict 
C 

C  READ  AM  US  E  F  PROXIES 

CALL  KDPROX 
C 

C  CEMPLTE  FARM  FACTOR 

CALL  CF  ACT 
C 

C  INITIALISE  VARIABLES 

L  ACT -0  71 1 

IF  <F INC.E C.AIR  )  LACT  =  b79V 
NL=  100 
mREC-0 
CE  cb  1=  l.j 
CC  fab  u-  1 .  1  10 
D U  fab  !S  -  1  ,  V 
,)  JILL  L  T  (  I  .J  ,K  )  =  „  .0 
ACI=-  C 
I  ALT  -3 
JACT  -  Ii’LK 
IP£= I 6L  K 
I  F— 0 
F LAS-0 
PE- I cLA 
Ni)ICI=1 
C 

C  REAC  RECORD  trow  MILLET  file 

eo  i R- i f ♦ i 

READ  t  l  .50  j  )  .i)A  T  A-e  1  .ERF-P  1  .END  =  17  .  .PE  S  UL  T  S  =  I  JO  ) 

*  AC  I  .f  E.  IF  A.NPG.  (  JP  E'J  (  I  )»  KP  E3  (  I  >.  I  =  1  .  b  ) 

5C5  j  FORMAT  (14X.14.1  VX.  A6.22X.A4.  7X.il.  lt,X.b(I  4  .  A  I  )  ) 

GC  TC  02 

C  UNUSUAL  TFCORC 

PI  WRITE  (6. 4003)  IF  « I  NO.  ACT.  PE 
4GC3  FORMA  T(  lb  R.  UNUSUAL  PtCURC.Ilj. 

*  10X.12H INDICATOR  I S .  1 1 0 . 

*  t  C  X  .  I  4  .  I  ?  ) 

C 

C  GCCO  READ 

C  EY  PASS  RECORD  IF: 

C  THt  PE  CUDl  IS  IN  F.PRHP.  THAT  IS  EQUALS  TH1122 

C  ACT  RANGE  fUF  SHIPS  1$  OUTSIDE  OF  1-711 

C  ACt  RANGE  FOR  A/ C  IS  OUTSIDE  OF  fa R2 P - fa  7 V  ) 

82  IF  (rE.Ci.6FT HI  122)  C.O  ID  8C 
IF  (  ACT  .  G  I  .L  ACT  )  GO  TO  12' 

IT  (AC  l  .LT  .oA2P  .  ANC.F  I  NC.lQ.  AIP  )  GO  TO  8  0 
C 

C  SAME  ACT  AS  PREVIOUS  PECJPJ.  HUT  NOT  USCO  ( E  L  AG  =0 ) 

C  SA‘E  ACT  A..  PREViruS  FlCJS).  AND  IS  USED  (ELAG>0) 

1F(ACT.€C.  IACI.  At.r.FUAG.  ID.  S)  SO  TP  8  N 
IF(ACI  .Ei.IAcT.  AND. FLAG. ut.  I)  S')  T  J  11. 


jt> 


I  'bO  J 

C 

slm  a c i  i  v r  r  r  cuot 

12200 

c 

COMPLETE  THE  PFEVTOLS  ACTIVITY 

i2aoo 

IF(FLAG.LE.O)  CO  TO  88 

12900 

c 

LOOK  FCF  HI  OXIES 

liOuC 

c 

CHECK  THE  ACT-COOtS 

liico 

63 

IF(PFCXY(PFXC.6  >- I  A  C  T  )  8  4.85.8  7 

1  3200 

c 

ERROR  -  SKIP  THIS  PROXY  INPUT 

1  5  500 

84 

hfcxyipfxc.r  >= i n i k 

13400 

ffiXC  =  f’HXC«l 

13500 

FL*0-FLAG«1 

13600 

GC  TC  83 

1  3  700 

c 

MATCH  OK  ACT/CODE.  CHECK  PE-COOES 

13  8  00 

85 

1  FtPFOX Y( PKXC.e  ).Nt. IP E  )  GO  TO  87 

13900 

c 

GGQC  MATCH 

14000 

FFXC^PPXC*  1 

14100 

FLAG=FL  Au«l 

I42C3 

GC  TC  23 

1  430C 

c 

WRITE  FECCFO 

14400 

87 

CALL  WPPEC 

14500 

c 

1460C 

c 

RESET  VAF I  A  BLE  S»  PEC1N  NEXT  ACT/PE  COMhINATICN 

14700 

68 

UCT^ACT 

14800 

T  P£= FE 

14900 

OC  90  1-1.5 

15000 

DO  9,J  J=l.llO 

15  100 

OC  95  K -  1 . 9 

15200 

90 

81LLETC  I  .J.K1--0.C 

15300 

c 

COMPARE  NEW  ACT-CODE  TO  LIST  OF  ACT  CODES  IN  DICTIONARY 

15400 

NA-NSCANX (ACTCODCKDICT  ).N  TYP. AC  T ) 

15500 

IF  < NA .G I . 0. AKC. NA.LE.N T YP  )  GO  TO  95 

15600 

FL  AG  =  0 

15  7C0 

WRITE <5. 55 50  )  ACT 

158  00 

5050 

FCFMAH  IHO.Ib."  ACT  COCE  IS  NOT  USED") 

15900 

GO  TC  20 

16000 

c 

ADU  THIS  FLCOPO  TO  THE  DUALITY  MATRIX  FOR  THIS  ACT/PE 

16100 

95 

F  L  AG-  1 

162  00 

NOICT-NA 

16  300 

CALL  ADD 

16400 

GC  TC  80 

16500 

c 

16600 

c 

FIND  PL  CODE  AND  SlE  IF  IT  IS  A  NEK  ONE  FOR  THIS  ACT  CODE 

16  700 

110 

IFXPE.CC.TPEJ  CC  TU  116 

1  b  6  0  0 

c 

1 6  900 

c 

KLK  PE  COOE  F OF  THIS  ACT.  WRITE  RECORD  FOP  THE  PREVIOUS  ACT/PE 

1  7000 

c 

CHECK  FCP  PROXIES 

17100 

c 

CHECK  THE  ACT-CODES 

17200 

11  1 

IF (PFCXYCPFXC.S  )'IACT)  112.111.115 

1  7300 

c 

EFFCF  -  SKIP  THIS  PROXY  INPUT 

17400 

112 

PFCX  Y<RPXC.2  )-  I  GL  K 

1 75  OO 

FFXC=PFXC« 1 

1  7fOC 

FLAG  =  FL  AC«l 

17700 

GO  TO  111 

17200 

c 

match  on  act/coce.  check  pe-codes 

17900 

UI 

IF(PF0X Y1PFXC.8  ).NE. IPE  )  GO  TO  115 

18000 

c 

GOCD  MATCH 

18100 

FFXC  =  PRXC»  1 

1  8  20  C 

FLAG=FL A  G  ♦  1 

18  300 

GO  TO  111 

18400 

c 

WPITE  THIS  RECORO 

18500 

115 

CALL  WFPEC 

18600 

c 

RESET  VARIABLES  FOP  THE  NEXT  PE  IN  THIS  ACT  CODE 

18700 

DC  116  1=1.5 

1820C 

OC  116  J= 1  .11C 

18900 

DO  116  K= 1 . 5 
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:  woe 

116 

BILLEK  I  »J  *10=0.0 

1910  5 

I  PE  =  f'L 

UJuC 

f  LA..  1 

l  »20C 

C 

1 9  4.  £  0 

c 

ADO  THIS  FECUPU  TO  THE  OUALITY  M  A  T9  IX  FOP  THIS  ACT/PE 

l  5  5o0 

116 

CALL  A  0  0 

l  96u0 

GO  TQ  60 

1 97;,  9 

c 

I  {800 

c 

ENO  OF  FILE  ON  9IELET  FILE 

19900 

c 

COMPLETE  THE  LAST  ACTIVITY 

20000 

120 

IFtFLAC.LE.3  )  GO  TO  I2t 

201  uO 

c 

LOCK  FCH  PROXIES 

Zu2o0 

c 

CHECK  THE  ACT-CUOES 

20  50  0 

122 

IF (PFCX YCPFYC.6  1-TACT  J  12  3.  124.  126 

2C4Q0 

c 

ERFCR  -  SKIP  THIS  PROXY  INPUT 

20500 

123 

PRCX  Y(  PPXC.fi  1-  I  OLK 

20600 

FFXC-PT  XC«  1 

2 C  70  0 

FLAG=FLAG*i 

20000 

GO  T  C  122 

2J900 

c 

PATCH  ON  ACI/COCE.  CHECK  PE-CdOES 

21000 

124 

IFCPF0XYCPFXC.6  >.NE.  IPE  1  GO  T9  126 

21100 

c 

COCO  HATCH 

21200 

FFXC=PRXC«  1 

2 1  5  0  C 

FLAG=FLAG«: 

21400 

GO  TO  122 

21500 

c 

WRITE  FECOFO 

2I(  OC 

126 

CALL  WFFlC 

217  JO 

128 

I  R  =  I h-l 

212  00 

RFITL  C6.&0UJ  )  IF 

21900 

6000 

FCRMATC  1HC/1X.I10.14H  INPUT  RCCOPOS) 

22000 

LOCK  1 

22100 

c 

22200 

c 

EE  SORE  COAL  IT  Y  HAS  70020  TO  ALL  N  A  PM  ENTRIES 

22300 

WFIIE  1 6 . 7 u 0 0  ) 

2  2  4  C  9 

7000 

F  cfmaK  ihi  ; 

22500 

00  1  40  1=  1  .AMI 

22600 

UQ  143  J=  l »  NK2 

22700 

IFCINAKMCT.J.15 >.LE.u 1  GO  TO  14' 

22P0C 

IF  1 1  AAFMt  I  .J.li  3.CS.UK  )  GO  TO  14.9 

22900 

WRITE  (  6 . 7  oSG  )  I  M  A  RM  <  I  .  J.  1 5  3.  I  1  U  M  ( I  .  J.  1  4 )  .  T  N  AR  M  ( I  .  J  .  13  )  . 

25C09 

«  INAFi-C  I  .  J.  12  ) 

251  00 

7050 

F  Cfi  9  AT  C  1  4  H  <S  T  H  C  ACTIVITY  .A6.1X.I4.9H  WITH  PF  .16. 

25200 

1  >H  V,  I  Tit  PU  .16. 

23  500 

»  5511  CCES  NOT  HAVE  A  d  ILLE  T  FILE  tSl»Y.) 

25  400 

140 

CCNT INUE 

25500 

c 

23600 

r 

OE  SURE  AIL  NEW  ACTIVITIES  HERE  INCLL9E0 

25  7 0 C 

write  (6.7joui 

25  auO 

IF  ( NP.L  T .  I  1  OU  TO  155 

23  9 00 

00  153  1=  1  .  KP 

2  4  000 

IF (PFGX Y( I . 3  l.EC.OK J  CO  TO  15* 

24100 

WRITE  C6.R0.3ul  <  PFO  X  Y  C  I  .  J  !.  J=  l  .  7  ) 

24;00 

eoij 

FCHMAT122  Hu  FR  OllL  EH  WITH  NEW  ACI/Pl/PL  .  AG  .  1  X  .  T  4 . 1H  /  .  1  f> .  1H  7 

245  00 

»  wH.  .lbHrFGXY  1£  ACT/Pl  . A h  •  1 X . ! 4 . 1 H 7 . 1  6. 1 H . ) 

24400 

150 

CONTINUE 

24500 

c 

2  4*00 

c 

CCPY  THE  5  DISK  FILES  TO  THE  OUTPUT  TAPE 

24700 

c 

SEPARATE  YEARS  BY  A  FLAG  RECORD  WITH  STOREC 1 3=999999 

24  JwO 

155 

IU=8 

24  >00 

00  179  1=  1.5 

25000 

JU*!U«1 

25  109 

FEWINO  JG 

2*20  0 

lo  3 

RE  A9<JU.-.VC=16P  )  <  srur  E  TJ  >.  J=  l  .  >). 

2  >  500 

1C  ilLL  INCI.J.KI.K*  1.  >>.J=1  .11  .  1 
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25500 
?jRCP 
25703 
25*00 
25900 
260uG 
2b  1 00 
262C3 
2  b  50  0 
26400 
265  CO 
26600 
26700 
26800 
26900 
27000 
27100 
27200 
2  7  5  0  0 
27400 
27500 
276  00 
27  700 
2  7  80  C 

27  900 
2  8  000 
26100 

28  200 
28  500 

28  4u  9 
28500 
28600 
28700 
28800 
28900 
29000 
2  9  1 C  "> 
29200 

29  500 
2  64  0  3 
2  9500 
29600 
2  970  0 

2  9  80  C 
299  00 
30CC3 

3  0 1  0  C 
30200 
30300 
2C40C 
30500 
3CSoO 
3C700 
30800 
30500 
21000 
31100 
31200 
21300 
31400 
3 '500 
31600 
31700 


HP  lit  (8 . 3000)  (  STCF£(  J  ).  J=1  .9  ). 

»  (  dlLL  TNU  .  J.  R  )»K=  1. 9  ).  J=  1  ,  U  0  > 

100  J  FORMAT  f  3  to  »'»F  >.l»9  9jp|i.l  ) 

GC  TC  lbO 

168  STCFL(  l  1=999999 

*F  I  T  c  t  e  .30u0  )  (STOFEU 
*  ((81LLTMI.J.R),K=I,9)»J=1.11C) 

170  CQNT I  NO  F 
C 

C  FELEASE  THE  SCRATCH  FILES 

CLOSE  C  9  > 

CLC5E  (  U  1 
CLCSE  (11) 

CLOSE  < 12) 

CL  CSE  (  13  ) 

LAC 


SUBROUTINE  F0D1CT 

COMMON  /iA/  ACTCCC(l9l)»  NMCJI)E(19l  ).  t*  UCOO  E  C  1 9  1 ) .  PEC30E(19l>. 

»  IACEXU91.2).  AMI.  M2.  SHIP.  4TR 

COMMON  /tl/  NAFH(95.3).15).  i / LLE I < 5 . 1  1. . V ) .  P PQ XT ( 35 . 15 )  .  MSEC. 

•  F  t  AO.  FLAG.  ATTP.  HTTP.  NP,  PR XC .  IACT.  NA,  JPE»  NL 
INTEGER  ACTCOO.  PUCOOE.  PECOOE.  FIND 

C 

C  INITIALISE  »ARIAULES  -  190  ACT/PE/PU  DICTIONARY  ENTRIES  FAX 

C  -  94  ACTS  MAX 

C  -  30  PES  PER  AC  1  MAX 

M  T  YP= 1 9  0 
NM1=  54 
682=30 
AL= 100 
N  A  C=  0 
I  A  CT  =  ) 

C  FEAC  CICTJOAAPY  ENTRIES 

C  ASSIGN  EACH  AN  ACT  N3.,  AND  NITHIN  EACH  ACT  A  RECORD  AO. 

RE  A  0  ( 4  »  l  j  5'j  )  NT  YP 
1050  FCFMAK  15  ) 

IF  (MYP.GT.MTYP)  NT  YP  =  M  T  YP 
DC  6  T=  l.NTYP 

PE  AD  (  A.  1  0  60  )  ACTCOO  (  I  ).  PECDDEd  ).  NMCCOEd  ).PLCJ0Ed  ) 

1060  F  OR  *  A  T ( I4.2X.Ib.2X. Ab.2X.T6) 

IF  (  I  AC  T  .t  C.ACTCOCd  )  >  GO  TU  4 
I ACT  =  ACTCCL(1  ) 

N  AC=  NAL ♦ 1 

IF  (  NAC  .GT  .NH  )  NAC=AMl 
M  P£=  C 

4  I  ACE  X (  I  .  1  )  =  AAC 
HP£  =  MPE  ♦  1 

IFCMFE.CT.NM2)  MPE=NM2 
I  NCE  X  (I  .2  )  =  MP  E 
KL  =  NL*  1 

IF (NL.LE.25)  GC  TO  6 
MFITE  (6.107(1)  FIND 

10  7u  FCRMAU  IH1/5X.4  HACT..4  X.2  HPr.5  X.  A4.4  X.2HP0/ 

•  5X.4HC0OE.3X.*  HCOOE. 4X. 4HNAME. 3X. 4HC00E ) 

NL  =  0 

6  NPITE  (6.1083  )  ACTCQDC I  l.PECJOEd ).NHCOOE(I  ).PUCOOE( I  ) 

»  .INDEX!  I. 1  ). INDFX( I, 2). I 

1080  FCPMAK 1H0.4X.I4.2X. I6.2X. A6.2X. 16. 21 4. I  5) 

RETURN 

LAC 
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:  1  “  0  C 

c 

•  •  •  •  1 

ilVjO 

320o0 

SUURIUIIM  FGI'MIX 

22100 

CEFPCN  /  4  A  /  ACTC0CI141  )  *  NaCODE  { 1  41  )•  2  IICOO  E  ( 1  9 1 ) . 

P  ECUOE ( 

151)  . 

32200 

• 

INDEX  (191*2)*  NMi,  NY.'*  SHIP.  Al  K 

32300 

CCMMCK  /»!/  NAFM('45*30.  15  ).  H!LLET(5*11C*4>»  t"1 0  XY  <  35  *  1  5  ) 

*  HREC. 

22000 

• 

FIND.  FLAG.  NTYP.  f  Y  P  *  NP,  RRXC.  I  AC  f  . 

HA*  I P  £ 

*  NL 

325>. ) 

UIKLRSICN  NI’L  (95  )  »  PXNAM(S5*l>  ) 

2260  0 

£ c u ;  valence  mnxYu.i  i.pxnarmu.i  )  > 

32  20  0 

INTEGER  ACTCGO.  PUCOCE,  PECOOF.  FIND*  SHIP, 

32600 

« 

PROXY.  PPXC 

22900 

C A  f  A  IBLK/6F  / 

33000 

c 

33100 

c 

INITIALISE.  VARIABLES  -  35  PPJXY  INPUTS  MAX 

33200 

NP  =  0 

33300 

MP  =  3  5 

15*60 

UC  1-  1=1. MP 

23500 

F  P  C  X  Y  (  I .1  ) -  I H  L  K 

33600 

PR  OX  Y(  I  »e  )=  IitLK 

33700 

10 

P F<  C X  Y  (  I  .5  >  =  I  uLK 

33600 

c 

33  900 

c 

READ  1  HE  PRUXY  1NPUIS 

34  000 

c 

FFUXY(NF.l)  -  CCLS:  1-  5  -  NAME  OF  ’JEW  FORCE  UNIT 

341  OC 

c 

2  -  9-12  -  MEW  »CT  COOE 

34200 

c 

3  -  16-20  -  NlW  Pl  COGE 

3450  ) 

c 

4  -  '2  5-2?  -  NEW  I’U  COJF 

3  4  4  C  C 

c 

5  -  31-36  -  NAME  OF  PlOXY  FORCE 

UNI  T 

34500 

c 

6  -  3-4-4?  -  Pi  OXY  ACT  CODE 

34600 

c 

7  -  4 5 - > -  -  PROXY  PE  CUE 

34  70  3 

c 

P  -  55-5“  -  PFOXY  ft  COGr.  REPLACING  THE  LAST 

346  00 

c 

U  TGI  T  WITH  A 

’’.M  ** 

3  4  9  j  0 

c 

r4  -  S3  -  FACTOR  I  NOT  C  A  TOP  - 

IF  ?£  RQ 

READ 

35000 

c 

AGO  USt  THE  USER 

*S  FACTORS* 

3510  0 

c 

!  F  '4  0  T  7  £  F  ij  USc 

THE  4  AH  M 

FACTCRS 

35200 

c 

PXKARPCNF.Ij  )  -  COLS:  I  -  >  -  ONRlARO  HANNING 

35300 

c 

11  -  6-10  -  BASF  OPS  MANNI.iG 

35  40  0 

c 

12  -  11-15  -  TRAINING  MANNING 

355-0 

c 

13  *  16-20  -  MEDICAL  MANNING 

35600 

c 

14  -  21-25  -  RECRUITING  ♦  EXAMINING  MANNING 

35700 

c 

15  -  26-3,i  -  I N  0  I  VISUAL  MANNING 

(  TP«P 

AND 

35  ) 

c 

HJ10ING  ACCI) 

3590C 

20 

NP=  N  Pa L 

36000 

IF(NP.GT.MP)  NI'-KP 

361-0 

FEAJ  (5 *21- )*ENC=21  )  (PROXY!  VP* I )  * I =  1*9  ) 

36  200 

2C30 

F  C  r  “  A 1  (  A  6  *  2  X  *  I  4  »  2  X  *  I6*2X*  I  6  *  2  X  *  A6*  2X*I  4*  2X*  I  6  *  2  X  *  A  t  *  I  3) 

36  3-0 

I F (PFCX Y(NP. v  l.NE.O  )  GO  10  ?0 

364C0 

READ  (5*2010)  (PXNAFM(.NP*  I)*  1  =  11*1  5  ) 

36500 

2010 

FORMAT  (GF5.0) 

366-0 

GC  T  U  20 

36  700 

21 

NP  =  N  F- 1 

36  6  0  C 

I  F  (  NP  . E Q • -  1  GO  TO  50 

36*uD 

c 

3  7000 

c 

PROCESS  THE  PFOXY  INPUTS 

37100 

OG  52  1 =1 »N? 

3  7  200 

c 

LUCK  FCF  IHE  NEW  ACT/PE  IN  THE  DICTIONARY 

37  300 

1 T  =  N I YP 

37400 

22 

J  =  NSCanX(  ACTCOUd  )*IT*PPOXY(I.  2)  ) 

$75-5 

IF  (J*C3.;1  GC  TO  3- 

37oOC 

I F (PFCX Y(  I  *3).L C.PECUDE t J  )  )  GO  TO  2F 

177-C 

I  T  —  J  —  1 

3/  3-0 

GC  TC  c2 

27  »o; 

26 

I I -Ml YP 

3'  )0 

c 

l.fJM  IGF  iHf  t'FGAY  iCT/PL  II  T  H  f  DICTIONARY 

j  -  ;  m 

;  - 

j  •, r. c, a  ■. < ( a (. : i.  ( i  ; .  ii.F‘»»ni*,  >  j 
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3  «J  ?  0  0 
38  >03 
35400 

jesoc 
5  e  f>  oo 

38700 
388  00 

3  6  900 
390U0 
39100 
39200 
3930C 
39400 
39000 
39600 
59700 
39800 
39900 
40000 
40100 
40  20  0 
40S00 
40400 
4050C 
40600 
*0700 
40800 

40  900 

4  1 000 
4110  3 

41  200 
41303 
41  400 
41500 
41600 
41  700 

41  «00 
41900 
42000 
42100 

42  200 
42500 
42  40  0 
42500 
42  60  C 
42700 
42800 
42900 
43300 
4i  100 
43200 
43300 
45400 
45500 
*3600 
43703 
43800 
45900 
44000 
44100 
44200 
44  300 
44433 
44530 


IFU.t  G.O  1  CU  10  30 
1F(PRIXY{ J»7).tC.PtCUDt(J)>  GO  10  32 
I  1  -J-l 
GO  ro  28 

C  EPFCF  -  CEL  ETC  THIS  INPUT 

30  WPIlt  (  6.2040  )  (FRQXYO .J  ) »  J=  1 . 7 ) 

2040  FGRMAT(23H0  INVALID  PROXY  ENTRY  .  A  6.  1 5,  I  7,  I  7 , 3  X  .  46 . 1 5.  I  7  ) 
PPCXYIl.b  1  =  99  99 
C  ENC  CF  LOOP 

32  CONTINUE 
C 

C  SChT  PROXIES  ON  ACIIVin 

N-NP ♦ l 

00  16  l=i.N P 
L  I  8=  N“  I 

IF  (LIH.Ll  .2  1  GO  IU  37 
CC  36  J-2 .L  IP 

IF (PRQXY( J-  1.6 ).Lt .PRHX UJ.6)  )  GO  TO  36 
DO  5  4  ,5=1.15 
I  H  CL  C=  PPO  X  Y  (J”  1  »K  ) 

FFCXYCJ*i.5)=PfOXY(J.5  ) 

34  PPC.<  Y ( J  .5  1=  IHGL  0 

36  CONTINUE 

c 

C  COUNT  NUMBER  CF  PPUXIES  PEP  ACTIVITY 

37  N  A  C= J 

I  A  C  T  =  0 

DO  18  1=1. NP 

IF  (  I  ACT  .EC.FPOXYd.S  )  )  GO  10  13 
N  A  C=  N  A  C  ♦  1 
I  ACT=PMJX  Y(  I.b  ) 

NPE(NAC)=0 

38  NFE( NAC  )=NFE(NAC J«1 
C 

C  SORT  CN  PE  WITHIN  EACH  ACT 

I  A  C  T  =  1 
L  1=  1 

L2  =  NF£(  1  ) 

40  L5=0 
L  3=L  2 «  1 
L4=L  1«  1 

IF  (L1.GT.L2)  GC  TO  45 
00  44  I=L1.L2 
L  5  =L  5  *  1 
LI8=L1“L5 

IF  (L4.GT.LIP)  GO  TO  45 
UC  44  J  =  L 4  .L  IP 

IF  (PPCX  Y(J-  1.7  I.LE.PROX  UJ.7)  )  GJ  TO  44 
Dll  42  5  =  1.15 
1 HLL  0=PPCXY( J-l .5 ) 

FFCXY(J-1.5)=PF0XY(J.K) 

42  PPCX  Y(  J  .5  )=  IHOLO 

44  CONTINUE 

45  L  1  =L  1*  N  Ft  (  IACT  ) 

IACT  =  IACT  ♦  l 

L2  =L  2  ♦  N  PE  (  IACT  ) 

I F  ( 1  ACT  .LE.  N  AC.  ANC.  PHOX  HU  .6  1.  Nt.  V  999  1  GQ  TO  40 
C 

C  PRINT  THE  PROXIES 

WRITE  (6.2020) 

2020  FORNATUH  1/8X.3  (5X.  3HNI  U  ).2X.?(5X.  5HPP0XY)/ 

•  oX  .3HNEW.4X.4  H  A  C  T  .  .  4  X. 

*  2HPt.bX.2rlPU.  6X.5HPR0XY.  !X.  4HAC  T  »  6X»  2HPE  . 
•15X.-USER  MANNING  FACTORS"/ 
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«noo 

447  JO 
4 4  a  JO 

44  >00 

4  5  0  0  C 

45  100 
4  5  ?  0  C 
45  500 
454  00 
45500 
456C0 
45700 

45  8  OC 
45900 
4600C 
46100 
46200 
46500 
46400 
46500 
46600 
46700 

46  ?  00 

46  90  C 
4  7000 

47  100 
47200 
47300 
47400 
4  7500 
4  760  C 
4  7  703 
47800 
4  7  90  0 
48000 
48100 
48200 

48  500 
4340C 
48500 
4  8600 
48700 
4  8  3  0  0 
4,-900 
4  5  0  0  0 
49100 
49200 

45  500 

46  400 
4  95  00 
49600 
4  97o  0 
4  9300 

49  90C 
50000 

50  100 
50200 
503u0 
50400 

5  ,50  0 


•  bX  .4  OF  A  ML  »3X.  4KuOL»  t  <4X.4!IC  i  )L  1,  4X#  4IINA-1  E  ,  4A  .  4IIC0  Jf. .  EX  . 

•  5HCJ0tS.lJX.lCH  ON- JUAI'O.  I  1H  uASE  0PS.1CH  TRAINING, 10H  MtO 
•ICAl.tjF  FECFUIT.12H  INDIVIDUAL/) 

CO  46  1 = 1 ,NF 

JFCPHOXYC 1, 6). to. 9999  )  GU  TO  43 

IF  <  PFCXY  <  I  .9  ).  NE -J  )  UNITE  <6.2160)  (PP09YCI  ,J)»J=1.8) 

IF  < PROXY < 1.9 ). EC. 0  1  WRITE  <o.20b1)  CPPOXYCI ,J)»J-1»6), 

•  <  PXFARM  <  1.  J  1.  J=  1 ;  .  15  ) 

2C60  FQFKAr</5X»A6»I6.2I8»4X»A6»Ib»I8»2X.A6«4X,5FlC.C»F12.0) 

46  COM  I  NOE 
l=AP« 1 
48  N  P- I -  1 
50  P  F  X  C  =  1 

PFCX Y<NP* I ,6  )=  9 9 999 

R£  tu  fn 

END 


SUil«CliriNE  ACD 

CGFMCF  791/  NAF M(95.30»15  ).  3 1  LIE  I <5. 1 U . 9  ) .  P-OXYC  35, 15)  ,  PREC. 

»  X  ( 6  ) ,  I  ACT 


CCFMCF 

712  7 

IPA.  KPG. 

JFE5C5  ). 

K r  C  •«  (“j  )  * 

CCFMCF 

/  A  E  / 

J  F  A  T  E  <  1  1  0 

).  GK 

01  ME  Nil 

ON  I  V  AL  <  9  ) 

DATA  1VAL  / 

1  H  A  , 

1F6.  t  HC , 

IH3» 

1  HE  »  1HF, 

1FC.  1HH. 

1  H  I  / 

C  THIS  F  GU  I  IN  E  ClCOOES  A  RECORD 

c 

C  F I  HO  FATING  INdEX 

KPA=NSCAFXCJfiATE(lJ»lI.i»IRA) 

IF IKFA.EU.G  )  GO  TO  4d 

c 

C  FIND  PAYGFACE  INDEX 

C  £9  IS  IF  POSITION  1.  ....  El  IS  IN  POSITION  5 

IFIKPG.LT  .  l.GP. KPG.GT.  /  )  GO  TO  40 
K  P  G=  11  -KPG 
C 

C  COMPUTE  FEOUIREMEN  is 

C  THE  LAST  DIGIT  IN  EACH  PE3.  FIE  ID  IS  A  LETTER. 

C  AFC  FUST  BE  TRANSLATEC  TJ  A  Nl'MRLR 

00  20  K  =  l  ,5 

K2  =  N  SCA  NX  < IVAL .V.RREO <K  )  > 

20  6  ILLETCK.KFA.KPG  »=UILL  t  T  <K.  I>K  A,  KPG  MFLO  A  TC  (  JFEW C K > • l 0) ♦ K 2 > 
RETURN 
C 

C  EHFOF 

40  WFITE(3,1000)  I F ,  1  A  Cl ,  I P E , I P A . KP 0 . C JP E 0 ( I) . KP E) (I  1 ,  I  =  1 . 5 ) 
1000  FCRMAT(lH0.la,I6.ie.2X.A4.I3.2X.SCI4,A1.2X)) 

RE  TURN 
ENO 


SUBRCUUNE  CF  ACT 

CCFMCN  7JA 7  ACTCCCC191).  NPC00EC191).  P  UCODE (191),  PEC00EC151). 

INDEX  (1  91 .2  1,  NM1.  NM7.  SHIP,  AIR 
CORMCN  /»!/  NAPM <95.31. 15  ).  8 ILLE T <5» 1 1 C. 9  )  ,  P P 0 X Y < 35 . 1 5 )  .  *P£C. 

'  FINC.  FLAG.  N  T  YP»  3  TYP 

DIMENSION  INtr  m<95»3j.  15  ),  FACTOR?).  KEY<7.2) 

ECUI  V  A  L  t  F  C  E  <  I  NAF  *<  l  ).  N4R  W  (  1  )  ) 

REAL  NA^M 

I'll  A  c  I  c»  3  .  F  6 .  PC.  PIOOJ.  if).  FIT. 
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t)  1  0  J  V 

51  100 
51  '0u 
51  10C 
5I*l,C 

51  3j  J 

51  M  0 
5  1  >'  *  C 
51*00 
51900 
5  2  0  U  0 

52  100 
52200 

52  JjC 
52*00 
5250C 
52600 
52200 
52000 
52900 
5  3CC.' 
53100 
5  J  20  0 
5  3  3GO 
53*00 
535  JC 
5  3  6  U '. 
5  3  70C 
53500 

53  90'( 
5*000 
5*100 
5*200 
5*  '.00 
5**00 
5  *5  O'i 
5*600 
5*700 
5*200 
5  *»  9  C  0 
5  S  P  0 

5  5 1  0  C 
53200 
5i  3oO 
55*00 
5550C 
55600 
55  70  0 
53*00 
5  j  Kj 
56000 
is.  I  0  0 
3i>  200 
5..300 

3  j  *  0  0 
5  o  5  0  0 
5c  600 
So  7 00 
56800 
5 ii  >0  0 
5/0O0 
5/IOC 
57200 
57300 


•  F  !  NC.  SHl/i  PE CO DC 

D*r*  n C  Y  /  19j  »  9c2.  72  3  .  925.  931.  7*0#  9*1. 

•  1070.  1939.  1959,  19>1.  1967.  I  >87.  1988/ 

C 

c  computes  the  FMisrn.  maipjwey  fac  tots 

C  FOR  FA  CP  PU/Pt  PAIP 

c 

C  IN  I  T  IALI/C  VAPlAMU  5 

IF  INC-2 

IF  (F IND.E0.SH1P  )  I F 1 N 0= 1 
IF  Y P  =  1972 
I  L  YF  =  1  ,2  2 
Ml  - 103 
IE  NO  =  3 
C 

C  F£AC  FADIUP  FILE  f  .16  THE  F  T  i»  S  T  IT  PE 

C  FILE  MUST  RE  CTPTEC  0  Y  PU.  THEN  PE.  THEN  FACTOR  SEO.  NO. 

READ  (2  .lOOO.ENC-H  >  J  7PE.Fl7.IPE.  I  SEO.  TAP 
1000  FER-AT  ( IN.  I2.2X.Ib.UX, 15. 39X.F1  3. 0 ) 

C 

C  INITIALIZE  FCF  A  N  E  *  PL/^E  CIMMINATIDN 

10  FU-IPU 
P E  =  I  PE 
SE  0=  ISE  C 
FACT  CM  1  )=T*P 
NF  AC  - 1 
IF  =  1 

IF  ( IENC.EC.1  )  GC  TO  1 1 1 
C 

C  CONTINUE  PLACING  FOH  IRIS  PU/PC  COMfllNATION 

C  SUP  FACIUFS  PY  TYPE  TCP  LIKE  PU/Pt  COMBINATIONS  IN  "FACTOR" 

C  CCUNT  NUMoER  LF  PAIRS  IN  -YIFAC" 

C  CIUNT  FACTOR  TYPE  WITHIN  A  "U/?E  PAIR  IN  "IF" 

30  READ  (2  .lOoO.ENU-U  '1  T  P  L .  F  L  T  .  I  P  t,  !  CEO.  TM? 

C 

C  SA'E  PFCCFAR.  UNIT.  PPJG&AH  ELEMENT.  A\3  FACTOR 

IF  (IPU.AE.PU.CF.IPE.Nt.PE.CP. TSEQ.NE.SEa>  GO  TO  32 
C  MAKE  SURE  THE  TTAINING  CLAIM ENT(721  AN0  TRAINING  CLAIMEnT(62> 

C  AFE  ASSCCIATEC  PITH  LIKE  PE».  TYPE  5  ANO  TYPE  8  RESPECTIVELY 

IF  (FLT .EC  .6t . UP. FIT .EC. 70  )  GO  TO  31 
I  =  IPE/l.'J'j) 

IF  CI.CC.5.AN0.FLT.E0. 72  1  GC  T)  il 
IF  (  2  .E  C.  AND.  FLT.  EO.  62  1  GO  T)  31 
NF  A  C  = 

F  ACT  CPC  IF  1-0.0 
GO  TO  30 

31  NFAC=NFAC*1 
FACrCR(IF>=FACTCF(IF  M  IMP 
GO  I C  3 1 

C 

C  SAME  PFCCFAP  UNIT  ANO  PRGGPAM  ELEMENT.  OUT  NEXT  FACTOF 

32  IF  (  IPU  .NF  .PU  .IIP.  IPF.NI  .PE  )  Gil  T  )  3* 

C  CIM'llIf  PM  VIDUS  I  Ai.lUF  F  II-  i  T 

C  IF  NF  A  C  =  0.  SOMETHING  WENT  WnONG.  FLAG  IT  MI TH  A  -100. 

C  II 1 1IL  I’M  I  St  AVI  FALL  The  I  ACIIIP  ACMISS  LINE  I’U/f’L  P  A I  PS  « 

C  WHICH  IS  THE  ACTUALLY  AVERAGING  ACROSS  CL  A  I  ME  N  T 

IF  (NFAC.cC.01  FACT  OR (IF  1= -101. 

IF  (MAC.GJ.Ol  F  ACIOM  1  F  1=FACIJK  (IF  l/FLOAKNFAC  1 
C  OL  NEXT  FACTOR  NOW 

ir-iFM 
SE  C-  I  SEC 

c  verify  THAT  the  next  f ac tor  is  the  right  one 

IF  (IF.GI.7)  GO  10  3o 

IF  (  ISE  C.NE  .KEY(  IF  ,  !F  I  it  1  1  CO  TO  32 
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574l»C 
5  75  00 
5760C 
57700 
573u0 
57VCC 
50000 
56  100 
56200 

58  300 
56400 
56500 
56600 
567u0 
58800 
56  700 
55000 
54100 
59200 

59  50C 
59400 
555C5 
59600 
59700 
5  9?  00 
54  700 
€0000 

5  C  1  c  C 

to.-oc 

60  500 
60400 
605JC 
60600 

6  C  7  0  0 
60  100 
60  >00 
61000 
61100 
6  1  200 

61  50C 
61400 
€  1500 
61600 
61700 
61  ’00 
61900 
62000 
621CC 
6220C 
62500 
62400 

62  5  j  C 
62600 
62  7C0 
62600 
02  400 
€30  00 
cjlOO 
€i'>00 
nj  <00 
65  400 
€5500 
6ibc0 
€5  700 


C 

c 

c 

c 

c 

c 


34 


C 

c 


2000 

36 

20  10 

36 

2020 


4 

c 

c 

c 

c 


40 


70 


C 

c 

c 

c 


74 


C 

c 

c 

c 

c 

c 

c 


80 


FACTOR!  If  )  =  IMP 
NFAC=1 

IF  <FLI.EC.60.CR.FLI.fO.70>  GO  TO  50 
I=IPE/lGJOOO 

IF  (  I.tc.5  .AND.FLT.E0.72  )  GO  T>  5' 

IF  ( I .£  C.8.AN0.FLT.E0.62  ]  GO  TO  50 
NF  AC  =  0 

FACTOR!  IF  1  =  0  .) 

GG  TC  30 

NF  6  PRCGFAM  UNIT  AMO  PROGRAM  ELEMENT 
CCPPUIt  FREVILHIS  FACTOR  FIRST 

IF  NfAC  -  C.  SOMETHING  WENT  WRING,  FLAG  II  Ml  III  A  -150. 
QIHCRMISE  AVEFACE  THE  FACTOR  UST  ACROSS  LIKE  PU/PE  PAIRS. 

WHICH  IS  I  HE  ACTUALLY  AVER  A  .1 1  MG  ACROSS  CLAIMEMT 
If  (NFAC.EO.J)  FACIORUF  >=-ljD. 

IF  (NFAC.GT.O)  F  AC  TO  R  <  I  F  >=  F  AC  T  )R  (  I  F  )/FL  0  A  T  <  N  F  AC  ) 

IF  (IF.EU.7)  GO  10  40 

ERRORS 

WRITE  (6.200C  )  IPU.FLT.  IPE.IjCT. IIP 

FORMAT  CSRJ  PU/PE  .  16.  12.  17  .If..F6.c  .  I5H  I i E G A N  100  SOON) 

ST  CP 

WRITE  (6.2010)  IPU.FLT. IPE. ISEl. IMP 

FCRMAI  O' Rj  PU/PL  .  IS  .  12  .  U  .  IT,  .  Fb  .  C  .  24  H  HAS  MORE  THAN  7  FACTCFS) 

ST  CP 

WRITE  (  6  »  2  J  2  u  )  IPU.FLT.  IPE.ISEJ.TMP 

FORMAT  (6  b'j  PU/PE  .  Is  .  12 . 17 .16.  F6.:  .2bH  HAS  A  FACTOR  OUT  Of  UPOEP) 
STCP 


NEW  CCMI I  NATION  LOCAIfU  IN  IPL.IPE 
PROCESS  THE  ONE  LOCATED  IN  PU.PE 

FIND  THE  ACTIVITY  CODE  ASSOCIATED  WITH  THIS  PU/PE 
00  70  NT-  l  .NT  TP 

IF  (  PU.E  C  .PLCOCE  (NT  ).  AN  C  .  PE  .EO.P  ECO  Ot(N  T)  >  GO  10  74 
COM  INUE 
GO  TC  103 

PUVt  FACTORS  INFO  THE  NAP  1  ARRAY 
N A  IS  THE  ACT  NU. 

NP  IS  THE  Ft  COR  C  NO.  IN  THIS  ACT 
NA=IN0CX(NT»1 > 

NP= I NQEX ( NT .2  ) 

I  NAP M  (  NA  .  N  P  ,  12 >=PU 
IMRMNA.NF.l 5  >=  PE 
I NARM<  NA. NP.I4  )- ACICUOCNT ) 

I  NaR  M(  NA  .  NF  .15  )*  NMCUOG  (NT  ) 

REPLICATE  THE  ONfiOARO  FACTOR  ACROSS  YEARS.  POSITIONS  1-5 
POSITION  6  IN  N  ARM  ARRAY  =  BASE  OPS 

7  =  TRAINING 

6  *  MEDICAL 

9  =  RECRUITING  «  EXAMINING 

10  =  IP«P 

11  =  PERSONNEL  HOLDING  ACCT. 

DO  80  1=1.5 

NA  f M (NA  »NP»!  )=F  ACT0P(1  ) 

NARM(NA.NP.6)=f ACTUW(2 ) 

NARH(NA.NP.7)=FACT0P(6) 

NAFMINA  .NI’.P  )-f  ACI0f'(7  ) 

NAFMCNA  .NP»9)=FACTUR(4  ) 

NARMCNA.NP.10  I=F  ACTOR (5 ) 

NARHCNA.NP.ll)=FACT0R(3) 

GG  TC  10 
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i 


6 ; ;  u  e 
fc  i  ?>i  c 

€4000 
6  4  1 G  v*. 
6  4  200 

64  500 
64400 
6  4  'j  0  0 
6  4J6,  l.  D 
64700 
6  4  80C 
64900 
65000 
6  51  CC 
65200 

65  5  GO 
65400 
6  5  5  0  C 
65bG0 
65700 
65  60  C 
6  j  90  1 
6G00C 
66100 
6o  2oO 
6650C 
66400 
665  00 
6t>  60  C 
6670 0 
6b  a  0  0 
6a  900 
67000 
67100 
6  7  200 
6  7  5C  ) 

67  4C0 
675o: 
e:  600 
6  7  7  6  0 
er^oo 

6  7  90  G 
68000 
6  i  l  j 
6  6  200 
6  e  5  0  0 
6 ,1 4  u  0 
6  5  5  0  0 

68  600 


NC  ACTIvTTY  FOR  This  PU/Pt  CO  M  0  I  N  A  T  I  On  -  SKIP  IT 
WRITE  (5.5000)  PU.PE 

FORMAT  (561.9  NO  ACTIVITY  FUR  THIS  C 'IM'l  I  NA  N  <1N  .  ?H  ) 

GO  TC  10 

£N0  OF  FILE  -  PROCESS  LAST  PJ/PE  PAH 
CLCSt(2»L'I$F  KEEP) 

I PU=  999999 
I P£=999999 
IEN0=1 
GO  10  54 

PRINT  RESUDS  F Oh  UNOCA^C  GAINING 

NL  - 1  GO 

DC  12)  1=1.  API 
DC  120  J=1.AM2 

IF  (  I  NAPK(  I  .J  .12  ).t  a.  0  )  GO  TO  l  ?.') 

NL  =  Nl  •  1 

I F ( NL .L  E . 25  ) GO  TG  115 

WFITt  (6.6000)  (K.KdFYR.ILVR) 

F  0  P  9  A  I  (  ip  I  ."ONOGARC  HANNING  F  (C  10  I'  5"  /  1  X  .  4HN  AKE  .6  X  .  2HP  U  .6X  .  2HPt 

•  25.5110/) 

Nl.  =  0 

brut  (6  »  7  0  0  J  )  IhAPMCI  ,  J,  1  )  ).  (INAPMd.J.K).  K*12.  1  5)  . 

*  (UW  (I.J.K).  K=l.  5  ) 

FORMAT { l H  5 .A6.2 l  5  .  a  F  X  Cl .0 ) 

COM  IMJE 

PP  I  M  I  PE  SUPPORT  fACTORS 
NL  =  1  5  0 

00  15'.  1=1.  MVP 
L-INCCX(i.l) 

M-INL£X(I  .2) 

IF  (  !  N  Afi  M(L  .H.l  ?.  ).  60.  a  )  GO  TO  15J 
NL  =  ML  *  1 

I  F  (  NL  .L  E  .  25  )  GO  TO  125 
WRITE  (6.POOO) 

FORMAT  (lhl  72  x.  4  l-N  A  Ml.  bX.  2HPU.  6  Y.  2  HP  E.5X.  lKAC1.6X.eM9.ASE  OPS. 

•  PX.tPTRATNING.4X.  5  X.  7HM  E  0  I  C  «L.  4j[, 

*  lX.15nFE  Ci'LIT/CXAMTNu.  3  X.  1  OH  H  AN  ST  EN  IS  .  5  X, 

*  2X.15HHJLCING  ACCT..1X/) 

NL  =  ) 

WRITE  (6 .900 j  )  INM-MCL .M» 15 ). ( IN AP M (L.M .K).K= 12. 14) , 

•  (NAi>“  (L  »M,  N  >.K=6.  1  l  ) 

FORMAT ( 2 HO  . A6 .2  I c . 16. 2X.6 (4X.F? .2 . 4X) ) 
NARM(L.P.13)-NAFP(L.M.lCHNAht<(L.N.ll) 

COST  I  HUE 

RE  TJ  SN 


69100 
69200 
69500 
69400 
E  950C 
69600 
69700 
6  9S0G 
6  9900 
7jO00 
/GluO 


SUBROUTINE  W1PEC 

CCMMLN  /XI/  N  A  P  M  (  9  5  » i  )  .15).  H  LI  l'  T  (5»  I  10.9).  t*  °l)  XT  (  35 . 1  5)  »  MREC 
«  F1N0.  ELAG.  NTYP.  MTYP.  NP.  PRXC.  JACT.  Nil.  JPE »  NL 

COMMON  /XA/  ACTCU0(191).  NM  COOS  <  1  7  1  ),  PUCOOE (19  1).  PEC00EC191). 

•  I NCEX (191.2).  NMl,  NT  2,  SHIP.  AIR 

COMMON  / X  3 /  JILL  I N (5.110.9) 

COMMON  /XP/  JRATE(llj).  OK 

Cl M£  NS  1 0  N  0 ! L I  A  L ( 5  ) .  I  N ARM ( 95, 50. I >  ) .  X(5>.  PXNARK  <*»•  15) 

E  CO!  VALENCE  (NAPMTl  l.lNAPMd)),  (  P  P  0  X  Y  ( l .  1  )  .  P  XU  ARM  (  1  .  1)  ) 

REAL  NARM.  NSCALE 

IMEGLH  (LAC.  PPXC.  PPJX).  AC  TC 111.  PIOOE.  PLCOOE.  F I  NO 
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'.'v-’O  ’ 

1  ML  Ctk  A  (  1  ).|i(  t  ).C(1  1*  OK 

UijC 

C 

7  u  4  U  C 

C 

THIS  RCUTIN.1  SCALES  THE  OJALIIT  MATRIX  BY 

THE  NAPM/USEP  FACTCP 

7C500 

c 

A  NC  Hh  I  TlS  the  HAfRIX  0*  TAPL 

70  600 

c 

7  j  700 

c 

INITIALI7E  VARIABLES  -  N A  -  DICTIONARY  POSITION 

73AO0 

c 

-  I  AC  T  -  ACTIVITY  code  mcing 

PROCESSED 

70  >GC 

c 

-  IC  -  COUNT  Of  TINT 

i  THROUGH 

RRREC  . 

71000 

c 

FOR  EACH  CAUL 

FROM  THE 

MAIN  POUTINE 

71  100 

NA  =  NB 

71700 

IACT-JACT 

71500 

IC  =  l 

7100 

c 

7 1  50  C 

c 

CCNVERT  JPc.  TC  A  NUMERIC  P EP R E S EN T A TI D N 

71 6G0 

c 

TO  HATCH  UP  PITH  THE  NUMERIC  N  A  PH  PE 

7  1  7C0 

c 

EX.  2  4  156  N  TU  24  1562 

7 1  «  0  C 

A (  1)  =  6H 

71  JOG 

CC  1  )  =  JPE 

77300 

CALL  ROVE  (CU  3.6  .A<1  ).  1.  1) 

77  1  0  C 

«(  l )- 6H 2 

77700 

I  E  (  4  (1  7.E0.1HM)  B  ( 1  »=  6  HI 

7  2  5CC 

C(  1 )  =  J  PE 

77  40  0 

CALL  PCVEteU  l.l.Cd  1.6.1  ) 

725GC 

READ  (C.50jC.CATa=10.EI  H=D)  IPE 

?7bGC 

300'J 

F  C  R  J  A  T  (16) 

77  700 

GO  TC  12 

7  2  3  G  0 

10 

WFfTE  (3'SOlvi)  lACT.JPE.IPE 

77300 

RETURN 

73000 

3010 

FChRAT  (-0  EPPUP".I6.2X. 16. TIO) 

7  5100 

12 

C CM  INUE 

75  7C0 

c 

7  5  3  00 

c 

SUK  RES  BY  YEAR 

75  400 

CC  20  1=1.5 

75500 

BIOT  AL  C  I  >  =  C.O 

7550 

DC  20  J=  1.1  13 

7  5  7  0  C 

CC  20  15=1.3 

7  53  00 

20 

6TGT  AL  (  I  3  =  ST0T  AL  <  I  3*8  I  LLETt  I.  J.  K  ) 

7  5  30 

c 

7  “i  00  C 

c 

CHECK  FOP  ZERO  QUALITY  MATRICES 

74103 

J=G 

74700 

DC  2  1  1=  1.5 

74  300 

IFTDTCTAL ( I  ).GT .0  3  GO  TO  21 

74  10  0 

M  c  I  T  E  (  3.6000  )  lACT.JP £»I 

745  00 

6030 

f  0  RM A  T  (  19 PJ  ZERO  BILL  E 1 S  FJP  .I4.1X.A6.4M  IN 

.1  1) 

74600 

J=  I 

7  4  700 

21 

CC.'.MNJE 

7  4  d  C  0 

IF  (J  .EO.j  )  GO  TO  2b 

74  700 

C 

7500  0 

c 

A  7EPG  MATRIX  WAS  FOUND 

75  100 

c 

REPLACE  IT  HTTP  A  NUN-ZEPJ  MATRIX  FT  Ort  A 

PREVIOUS 

YEAR 

7  5  200 

DO  23  1=2.5 

75  500 

IF(OTOT AL<  n.GT.O.OP.B  TOTAL (I -I  l.LE. C  )G0  TO 

23 

757.00 

no  22  J=  1.1  u 

75500 

00  22  15-1 .3 

75500 

22 

6ILLET(I.J.K)=UILLLT(I-1. J.K) 

75  700 

UT  CTAL ( !  )=BTGIAL ( I-l ) 

75"00 

25 

CONTINUE 

75300 

c 

76000 

c 

CP  REPLACE  IT  NITH  A  NJN-7ER0  MATRIX  FROM  A  LATER 

YEAR 

7.100 

D  il  2  5  1  =  1.4 

703w.‘ 

J  “  I 

76300 

IF(8ICTAL(J).GT.O.OP.HTOTAL(J*1  l.LE.O)  GO  TO 

25 

70403 

UQ  2  4  K=  1.  1 10 

765o0 

00  2  4  L=  1.3 
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IJ«"»  '  ii»'»Mini  i  .  i  i  - 


76  ■>  j  0 

24 

UILLE7(J,K,l)=‘lILEcT(J«l,K,L> 

7o/g) 

til  CT  Al  (J  )=  eTdAL  ( J  <1  ) 

7 1.  r  j  C 

25 

CCU  I  VJ £ 

7  a  ,  J  13 

26 

CPU  1NUE 

7/ ;u) 

C 

7  1 1  0  C 

c 

FINC  INC1CLS  INTO  TFE  N  ARM  ARRAY 

7  7  ?jf. 

c 

EXAMINE  ACT  I vtt  y 

7  MO 

00  10  6=1.61X1* 

7/4UC 

1  F  (  1  A C I  .LC.IN A>-  M(N, 1/141)  GC  T  1  35 

77500 

30 

CO, NT  INUE 

7  7  ‘j  0  0 

GC  rc  45 

7/703 

c 

EXAMINE  PE 

7  7  °00 

35 

DO  43  H= 1 ,  N  M2 

7/900 

IF  i  I  PE  ,E0.  INARM (N.H,  11  ))  CO  J)  5. 

/  c  0  0  C 

40 

CONTINUE 

78130 

c 

ERROR  *  NO  MATCH  TN  TH-.  4  A  M  FACTOR  FILE 

/  d  .1 C  ' 

45 

RRITE  (l.lO'.j)  NMCOnEtNU.JPE.l  ACT,  IPE 

7  t  5uO 

looo 

FCRMAU 14F0IHL  ACTIVITY  ,A6.  9H  WITH  PC  ,Ao.28H  OOE S  NOT  HAVE  A  NA 

JtiOO 

» R )*  ENTRY. ,16,18, 18) 

7830C 

GC  tc  ?■: 

78600 

c 

78  730 

c 

LCMPUTE  SCALIN'.  FACTOPS  AN  0  .CALL 

7e  l  - 

5) 

CC  53  1= 1 .3 

78930 

NSCACisP.C 

7v-i  J  C 

IF  (  LTuTALi I  l.cT.C.O )  NSC  ALCU  ARM  (  N  ,M.I  )/B  TO  T»L(I  ) 

7 , 1  w  3 

JC  55  0=  1  .  1  1) 

7  4  700 

DC  5  5  K  =  1  .  V 

7>  53  ) 

55 

U  I LL I  N  (  I  ,J,N)=  BILLET  (I  ,  J.  K  )».N  S3  ALL 

7  .AC" 

c 

7  4  50  0 

c 

N  R I  IE  UNIT  REG.  MATRIX  FOR  YEARS  1-5  077  DISK  5-13  RESPECTIVELY 

7-/600 

c 

FIRST  COMPUTE  fOTAt  FOR  EACH  YEAR 

7  7  3) 

Ili  =  7 

7  )  8  0  0 

CC  62  1=1.6 

7,700 

XC I >  =  3.  7 

eo  ;c) 

DC  43  J=  1  .1  lo 

£  0  I  0  0 

CC  60  K=  1  .9 

8  3700 

60 

X( I )  =  X( I  >*dlLLTN(I/J/K  ) 

8  3  300 

JU=IU* I 

8  )  40  C 

c 

xRlTE  -  PU.  Pc,  ACT.  FIVE  SUPPORT  FACTOPS.  ONBOARD  TOTAL  FOR 

6  J  5  j  C 

c 

YEaF  I,  AND  UNIT  REQUIREMENTS  FOR  YEAR  I 

c  1  oo  ) 

«R I TL  < JO  )  ( INARM (N.H ,J)»J=1?» 14 ). (NARM(N/H/J),J=», 10) ,X( I ), 

£  v  7  0  0 

*  (  (  B  ILL  IN  (  T  .  J  »  K  ) .  il=  1 .  i  )  ,  J=  l  .  11  3  ) 

£  J  8  0  C 

62 

CCU  INUE 

8J9.,r 

c 

CTSPLAY  PUT  CF  THIS  F  E  C  J  r  i) 

81300 

NRLC=N'RE  Cl 

81  100 

«RLC=HREC*1 

e  I?-,; 
8:  JiC 
U  409 
8  15CC 
8160  0 
Pi  TOO 
-  18oC 
1 1  VO  0 

■«20go 
8210) 
fl  <?  ?  0  3 
82303 
82403 
e25  jO 
R  ) 
82  7C0 
02800 
“2900 


NL-NL  ♦  1 

IF(NL.LC.25  )  GO  in  66 
HRlfE  (6,60)0)  (1, 1  =  1,6) 

50  j  F  OMA  T(  111  l/SX.6  HRLCtlPn.?  (4  XU  HAG  II  VI  TY  )  .7  X.  2HPU  ,  10  X  .  2HPC  » 

‘  2iX,23HUNH0APC  HANNING  BY  YEAR/ 

»  5X  ,6  HN’J  MlltR'  . 6X.4HNAMF,  TceX/AHCODE  >.4X,611u/) 

M  =3 

66  X  !•'  1  T  L  (b/4O0U)  NIEC.NPfC,  I  NAFH  C  J.  M  .  1  ,  )  .  t  ,N  APM(  N  .  1.  U  >, 

*  (lNARXKN.N.I  )• 1  =  18,13),  (X(I), 1=1, 5) 

ACOO  F  GRMAK  IHO.  16, I  4  ,5X. A6 ,7X. 14. 1 X, 2T 1 2,4  X.6FI C. 1 ) 

I  FLAG  COMPEL  TA  T I  ON  UF  THIS  PE/PU  PAIP 

[ NAP  H  ( 8,8,1  I  1  =  OK 

IF  I C  >  1,  THFN  THE  ACT/PE  PAIR  HAS  BEEN  PROCESSED  FOR 
CACR  NAHM  PL/PU  PAIR  HAVING  I15  DUALITY 
OETEF  N 1 8E  IF  IT  IS  TO  RE  A  PROXY  FOP  ANY  OTHER  PE/PU  PATRS 
I  F  (  I  C.  CT  .  1  )  GO  TO  7 ) 


01000 
«1  IJO 
01/00 
moc 

0  1  4<j0 
0SSOC 
01600 
8  i/oo 
ei“oo 
ei/uo 
0  4CCO 
041CO 

e;:  oc 

8  4  100 
0  4  4  u  0 
04100 
04»UO 
04000 
04*00 

e4  joo 

05COC 
85  100 
05200 
00  100 
01400 
8  5  5  0  0 
05000 
05000 
05  0-" 
85  »0C 
PoOOO 
f  j  luO 
0o<OO 
0i.  1U0 

8u4o: 

06500 

eoioo 
06  000 
0u6OO 
0 o  VOO 

e?  no 

f  0luC 
0/200 
0/  ICO 
{  0  400 
0/500 
0/600 
el  000 
0/»oO 
0/  AJ, 
00  >00 
0*10* 
M/> 
0* 


c 

c 


c 

c 

c 

c 

c 


c 


c 

c 

c 

c 

c 


c 


c 

c 

c 

c 

c 


IF  1C  =  1.  Th(N  SIJll  PROCESSING  NAPK  Pf/PJ  PAIRS  US1NO 
(HIS  UUALITY 

L*  1 

66  IF(INAKM(N,N»C.15).Gt.O)  CU 10  a» 

L*L«  1 

IF(H4(.  .GT.NPill  GCTO  70 
COIO  66 

68  IF  (  IhAMUN.P.U  ).Nl.  IN  ARM  <N.H«L*  H  >1  Cl)  10  70 
0>  0»L 
GO  TO  50 

CHECK  FCR  PROXIES 

If  FLAG  =  IC,  I  HEN  ALL  PROXY  INPUTS  FOF  THIS  ACT/PE 
HAVE  PLEA  PHOC  E  S  SCO 
IP  IS  IRE  INCEX  10  1H  E  PROXY  ARRAY 
70  IF (FLAG. EC. IC  )  PEIOfiN 
IP*PRXC-FLAC«IC 
IC=IC*1 

SKIP  PRCXY  INPUTS  HUH  EHR1RS 
IFXPf  CXY<  IP.t,  (.EC.uH  )  GO  III  7  0 

IF  C  f  nuxnif.y  1.EC.0  )  CO  10  *0) 

THIS  PRDXY  INPUT  IS  F OK  A  FORCE  UNIT  61  TH  HARM  FACTORS* 

OUI  NO  QUALITY 

FINO  INflCES  INTO  THE  N  ARM  ARRAY 
EXAMINE  ACIIVIIY 
OC  AC  N  = l # N 0 1 

1  EIPRIJX  Y||P,l  ).  EO.  I  NAPR  (N*  1  .1  4  ))  Go  10  05 
80  CCMINUL 

cc  rc  uo 

EXAMINE  PE  ANO  PU  CODES 
85  00  00  H-1.NH2 

IFXPKGX  Y<  IP  .1  >.  NE.1NARHXN.  M.l  1  ).0R.  PR0XYUP.4  ).NC.  [NARM(N*N*I2>  ) 
•  GO  10  OC 

IACT*PKCXY<  IP*/  ) 

IPt=PPUXY(IF»l) 

PFCXYCIP* 1 )-  OK 
GO  IC  50 
90  CONTINUE 
GO  TO  1  to 

THIS  PROXY  INPUT  IS  FOR  A  VFH  FORCE  UNIT*  USER  SPECIFIED 
I ACICRS  AND  A  PROXY 

PUT  FORCE  UNIT  ACT.  PE*  PU  COOES  AND  JSER  FACTORS  INTO  THE 
NARM  ARRAY 

100  l  NARM( NMl« 1 *1*15  MPRUXYCIP* 1) 

I  NAPMNM  1*  l.l  .  14  l-PROX  Y<  IP.2  ) 

I AARRX NPL ♦ l *t *  1 J  MPFOXYC  IP.  T1 
I  NARMINMl* 1*1 *1  2 )-PP0XY(lP»4) 

00  Ij5  1=1*5 

105  AARP(NHl«l.l.I  )=PXNARMIIP.10) 

DO  106  I  *  b  » 10 

PA  N4RH(  AM  1*  l  ,  1*  I  >*PXNAKM  (  IP*  I  «S  ) 

A*  AM  1 0  k 
(Ml 

GO  TC  50 


I  CROP  -  NO  NAHM  INPUT  FOR  THIS  PROXY. 

AMO  USFA  DIO  NOT  SPECIFY  FACTORS 
•*  *  I  T  €  ll./uOO)  PFOXYCIP.l  )*PR0XY(IP*3) 

•  •kllUNOYHC  ACTIVITY  .AN,  9H  RUN  PE  .I6.20H  DOES  NOT  HAVE  A  NA 
•  • •  I  •!*(.( 

M  0C  0* 
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894uC 

C 

*  450G 

c  • 

•  •  *  i 

89600 
f  >7  00 

c 

INTEGER  FUNCTION  N  S  C  AN  X  ( M .  L  .  1  > 

8  i  ?  J  C 

OIMENSION  Mil ) 

as^or 

9J00C 

c 

c 

SLAhCFS  THE  FIRST  L  FLEMENTS  OF  ARRAY  M  FOR  THE  FIRST 

90100 

c 

OCCURANCE  Of  I 

93  20'J 

J  =  U 

9  C  1 00 

5 

I F (M (J  )  .  I  S.  I  >  GO  TO  10 

90430 

1 

“1 

II 

**» 

90500 

IF  <  J  .GT  .0  )  GO  TO  5 

9  C  bO  0 

J  =  0 

9  j7  00 

10 

NS  CA  NX  =  J 

43  80  0 

RETURN 

9090C 

END 
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J _ 


Subroutine  RDPROX 


LOOP  ON  THE 
USER  INPUTS 


COUNT  NUMBER  OF  USER 
INPUTS  WITHIN  EACH 
PROXY  ACT  CODE 


READ  THE  NAME,  ACT.  PE. 
ANO  PU  COOES  OF  A  NEW 
FORCE  UNIT  OR  OF  ONE 
NEEDING  QUALITY.  AND 
NAME.  ACT.  AND  PE  CODES  I 
OF  THE  PROXY  FORCE  UNIT; 
FROM  USER  INPUT  FILE  ON 
UNIT  5 


//  ACT /PE/PU  OF  \ 
NEW  FORCE  UNIT  AND 
.  PROXY  FORCE  UNIT 
\^IN  DICTIONARY/' 


SORT  USER'S  INPUTS  BY 
THE  PE  CODE  OF  PROXY 
FORCE  UNITS.  WITHIN 
EACH  ACT  CODE 


DISPLAY  THE 
USER'S  INPUTS 


END  OF  FILE 


/  IS  \ 

USER 

SPECIFING  MANNING 
FACTORS 


READ  USER'S  MANNING 
FACTORS  FROM  USER 
INPUT  FILE 


DISPLAY  AN  ERROR 
MESSAGE 


DELETE  THE  INPUT 


END  OF  LOOP;  DO 
NEXT  USER  INPUT 


* 


Subroutine  CPFAC 


Subroutine  CPFAC 


COMPUTE  AVERAGE  VALUE 
FOR  THE  LAST  FACTOR  BY 
DIVIDING  SUM  OF  VALUES 
BY  NUMBER  OF  VALUES 


ADD  ACT  CODE  TO  PU/PE 
COMBINATION  AND  MOVE 
CORRESPONDING  FACTORS 
TO  THE  ARRAY  "NARM" 
FOR  LATER  USE 


IS 

LAST  PU/PE 
IN  THE  ACT/PE/PE 
DICTIONARY 


DISPLAY  THE  SUPPORT 
MANNING  FACTORS  FOR 
EACH  ACT/PE/PU 
COMBINATION 


a 

_ i _ 

DISPLAY  ERROR 
MESSAGE 

- 1 

DISPLAY  THE  ONBOARD  | 
MANNING  FACTORS  FOR 
EACH  ACT/PE/PU 

Subroutine  WRREC 


too 

ireset 

FREE 

200 

file 

1(11  TLE  =  "ENReP/UNnPE9/SHIP*»KlN)  =  PETAPE»SERI  ALNO =565 ,F I  L E T YP E  =  8 > 

500 

FILE 

Z( n  TL£="ENREP/UN JTPEa/AIR*,KIYD=PE TAPE, SERI ALN0=6l 4»FILETYPE=8> 

400 

FILE 

3(11 TLE='ENPEP/UNIIPEO/ALL"»KI!<D  =  P£  TAPE .BLOCK SI Z£= 99  0. M AXRECS I ZE 

5C0 

• 

=99)»SEBlALN0=67I  1 

600 

C 

700 

C 

THIS  ROUTINE  COMBINES  THE  SHIP  ANO  THE  A/C  UNIT  REQUIREMENTS 

eoo 

c 

ONTO  CNE  TAPE 

700 

c 

1000 

DIMENSION  10(3),  SPT(5>,  REQ(110,9) 

1  too 

c 

1  200 

c 

LOCP  ON  YEARS  1-5 

t  500 

00  50  1=1.5 

1400 

c 

160  0 

c 

COPY  A  SHIP  FILE  FOR  YEAR  I 

1600 

10 

READ  (1,1000. £ND=20>  !  D .  SP  I ,  TO T  AL.  (  (REO  (  J,  K  »  ,  K=  1 . 9 1 ,  J=1  .  1  13  ) 

170  J 

loou 

FORMAT  (3  To  ,6F» - t. V90F6  .1  ) 

ieoo 

IF  (  10(1  ). EC. 999999  )  GO  TO  20 

l  700 

WRITE  13,1000)  ID»SPI. TOTAL, ((7EJ(J,K),K=I»9),J=1»110) 

2000 

CC  TC  1) 

2100 

• 

20 

IO(i  )=  99  9  99  9 

2  200 

WRITE  (3,1000)  IC.SPT, TOTAL *R £9 

2500 

WRITE  (6.2010)  I 

2400 

2000 

FORMAT  ("0  COPIED  SHIP  FILE  FOR  YEAR  ",I3> 

Z5C0 

c 

2600 

c 

COPY  A  A/C  FILE  FOR  YEAR  I 

2700 

30 

READ  <2,1903,F.NG=4Q  )  I  0  ,  SP  T  .  TO!  AL.  (  (R  EO  (  J»  K  ) ,  K=  l »  9  )  ,  J=l ,  110  > 

2600 

IF  ( 10(1  ). EC. 999999  )  GO  JO  40 

2900 

WRITE  (3,1000)  IC.SPT. TOTAL, ( (R EO ( J ,K >» K= 1 » 9). J=l.llO) 

3  ICO 

GO  TO  33 

5100 

40 

10(1  )=  9 99  99  9 

320  0 

WRITE  (3,1000)  IO.SPT, TOlAL.RCa 

3  505 

WRITE  (6  .3003  )  I 

3400 

3000 

FORMAT  (-0  COPIED  A/C  FILE  FOR  YEAR  -.13) 

360  0 

c 

3600 

50 

CGNTINUE 

3700 

LOCK  l 

3  301 

LGCK  2 

3900 

LOCK  3 

4000 

STOP 

4100 

ENO 

ANNEX  B-8 


PROGRAM  SUPPORT 


,  ■ 


IOC 

200 

30C 

400 

5C0 

fcoO 

700 

eoc 

900 

1000 
1  loo 
12  00 
HOC 
1  4uC 
1500 
1600 
1700 
1  “00 

1  900 
20C0 

2  1  v u 


IRESET  FREE 

ISET  A  0  1  Gil  I  Ml 

1B1A0  =  F  R  0  A  C  N  A  /L  I  0  /= 

FILE  1CTITL£="RERCJUL?7/PEACT".I<InO  =  P£TAP£.FILETYPE=A) 

FILE  2  CTI  TLE  =  "ENFE  P/ SUPPORT /CLAL!TY".MN  0=PE  TAPE.  HAXRECSI  ZF*992. 

•  RLCCKS  I?E=9y?  ) 

FILE  4 (KI  ND=  PR  I  MEP  > 

FILE  1  1  IN  IN  0=0  I  SK»MAXRECS17C=9  92.3Li)CASl  7  E=  9  9  2.  AR  E  A  SI  ZE=  1  C  ) 

FILE  12(!(IN0=U  ISK.MAXRECSI7E=9  92.310CKSI  7E  =  9  92.  APEASI7EM  0> 

FILE  1J(XIND=CISK.HAXRECSI7E  =  992.3L)CKSI 7 E  =  99? , AP E A  SI 2f  =  1 C ) 

FILE  14(KINC=CI SK.MAXRECS I7E=9  92  .BLOC  NS  I  7 £=  >92. AP E ASI ZE= 1 0 1 
FILE  15CIUN()  =  0ISK.MAXRECSI7E=9  72.3L:1:kSI  7E  =  9  *2  .  AP  E  ASI  2£=  10  ) 

C 

C  LPLATES  A  CUALITY  HE CU1 FEMEN TS  MATRIX 

C  F  OF.  TRE  FORCE  SUPPOPI  PP'JGPAl  ELEMENTS 

C  -  FATING  6 Y  PAYGRACE  FOR  EACH  YEAR 

C 

C  FILE  1  =  KENLCLAL  FILE  SORTED  A  Y  PE 

C  FILE  2  =  OUTPUT  FILE  OF  JJ4L1TY  MATRICES 

C  FILES  11-15  =  STORACE  OF  O'JALITY  MATRICES  dY  YEAR 

C 


2  200 
2  300 
2  409 
2500 


4400 
4500 
4  60  C 
4700 


CCMCA  /II/  REQ  (  5 , 1 1  5 . 9  7.  N  YE  A  R«  FLAG.  NL I  ME 
COMMCN  / t  3/  IPE  .IR A.KPO. JRECC5 1. KP E0(5 T.NR 
CCPMCK  /  3.  A  /  JPATE(llO).  IRAlEdU) 

CCMCA  /  *  2  /  XC5.I10).  Y  <  5  J »  VAPPE(  14.5).  CHIt  (  5  )  »  TNPE(5). 


1 600 

* 

TITLEI5.5  1, 

TOTAL (5. 5  ) 

2  700 

INTEGER  PE.  FLAG.  T  I  TL  t . 

VARPE.  CHR 

.  TNPE, 

2EOO 

* 

RLCCCE.  PENAHE 

2  90'* 

data 

TdLK  /bh  / 

3000 

DATA 

(T  I ILE  (1.  I  ).  1=1,5  J  / 

4HUASE.  4  H  OP  S.  4H 

.  4H 

.  4H  / 

3 1  0  C 

*  p 

CTITLEI2.I  >.1=1.5  >  / 

4HTP  4l.  4HNING.  4H 

.  4H 

.  4H  / 

3  ?C'0 

•  p 

crrrLEO.i  >.7*1,5  3  / 

4  HM  E  )  I  .  4  HO  A  L  »  4  H 

.  4H 

.  4H  / 

3  300 

•  p 

(T ITLE (4. I  I.  1=1.5  )  / 

4HRECP.  4  H  LI  I  ,  4H  ♦ 

EX.  4HAMI N 

1.  4HG  / 

3403 

*  p 

(TITLE <5. I >.1=1.5  )  / 

'.HINDI.  4 

HVIil'J.  4HAL 

.  4H 

.  4H  / 

350C 

DATA 

(  VARPE  (  1.1  ), 1=1,9  )/ 

6H2461 1 M. 

6H246I 2N, 

6H2461  3N. 

6H2461 46. 

3  60  3 

• 

6H2  461  5N  , 

6H2451 6N  . 

6H2461 7N , 

6H2461  PN. 

6H  72 82 76/ 

3  7C0 

DATA 

(VAFPE(I»2  1.1=1,14  )/ 

6H24 15oN  . 

6H2424/N  , 

6H2 46  5  ill . 

6H66723R. 

3  i’O  C 

* 

6  HP  4  74  1  N  . 

6H84742N. 

3900 

• 

6H64711N. 

6HH4722N. 

6HP47T1N. 

6H64751N. 

6M  A  4  752  R  . 

400  3 

« 

6Ht5790N. 

0 Hd6 7 6  IN  . 

6H8  97  UN/ 

410  0 

DATA 

(VAKPEU.3  7.1=1, 2  )/ 

6HA771  IN, 

6Hd7  71  4N  / 

4203 

Data 

(  VARPE (I .4 ).I= 1,2  )/ 

b K*  17  l  IN  . 

6HS171 JN/ 

«3  00 

DATA 

(  V  AmPE  ( I  .5  ), 1=1,2  )/ 

b  HAP  7  2 1 N  . 

bHP  P  7 T  2N / 

0 A  T A  CHK  /  9.  14,  2.  2.  2/ 

C  A I A  JRA7E/4RC 100.4  HO  ISO »4HC2j  0»  4  H ..  25'  .  4H  1  3  C  0 . 4H0  359  » 4H0 nO 0 . 4H0 4 C  ! 
*4Hi)4O4,4hO450»4HG53C»4H0b33.4HQfcOl»4Hrb0Z.4HG6O4,4HTtt0O»4HOPGl 
, 4H0902.4H  df  i. 4Hl 6  1  J  ,4 H/90  ),  4H  l  O'.  4H  1  1  .4H  1 C  )2 »4h  ij  H  »4H  1CS0 


4300 
4900 
soocf 
5  1  0  C 
520C 
S300 
5400 
5500 
5600 
5703 
'jtL'J 

5  90  0 
6000 

6  100' 


, 4H1 10  0. 4hl 2C0.4H14U0.4HISH. 4H1 fell »  4H1  6  2  2.4H16  J3. 4H lb44 .4H1E55 
.  4H1666. 4H1  700.4  H  17„1»  4H 175  !»  4H  l  «l  0.  4H1  9  0  0 . 4H230C  .  4H  2 130. 4H  2  200 
.4HP500  »4H229t .4H2TC  3.4H249  ..  4 H  ' 60 4H 2 7  00 .4H  J  IU3.*HI20«  .*HJJ„  3 
.4H3  700.4H3e00.4H3  7i.vJ.4H  4  JO  >.  411 4  020. 4H41  C  C.4H4700. 4H  4  JOO.  4H4EOO 
.  4H47uC»4H4400.4H50t0.4H5l 03.  4H53CO.  411 5  3 Pw,4H5 4 1 0 . 4H 550<;  . 4H5600 
.  4H5  7u0  , 4H56  00  .4  Ho  33  0 . 4  H61 A *.  4H6  200 . 4H6 2C 5.4H62 36. 4H6 JO  0 . 4H6 3 1 C 
.  4H6  40  0 »  4116  50J»4Hb5?3«4H640  ).  4  lib  7  Of  ,  4H6  7  0  4. 4H67  0  5.  4H  6  7 1 6 . 4H  6  P  CO 
.  4H6  93  J  ,4h6  9?  1  »4Hb9. 2  .4  H693  3. 411 7  PCr  »  4H7  l  C  u  .4H7  2uO  ,4H7  J3  J  .4H7500 
.4H7  50 1 .4H7S02.4H7  5 j3.4H74  Y  J.4H7  600. 4H7  70C.4HE3 30. 4H5  300.4M JtOC 
.  4H5CJ0»4H6JO0,4H78u'I/ 

DATA  IRATE /3  HON  »  3  HP  A  ,3hSA  .3-ISM  .3H0S  .THEY  »  3HST  ,3H  S  TG  .  3H  ST  S  . 

3HCI  »  JhT  N  . 3HGM  . 3 H GAP.  TO M T . 3HGM G. SHF T  . 3HFTG.3HFTB.3HFTP. 

3H M T  , 3 H m M  , 3h£T  ,  3HE  TN.  T  IE  TR  .  3H0S  .JHPI  .THIN  ,3hJM  »JHNC  . 

3HRM  .3HCTT.  JHCIA.SHC  IP. JHCTD.  3HCTP. JHCTI. 3HVN  »  3H C YN  » 3HL  N  . 
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O  C  0  J 

•  iHl’N 

.  Jilin*  .  lir>  K 

,  in  OR  .  I'Hi 

.  <1150 

.  30C  S 

3.1  T  0 

.3130 

6310 

•  3  HPC 

.3HLI  .  3HGM 

.3ML  .3.IMH 

.  3MEN 

.  30  MP 

JH  “  T 

.  30  MR 

b  4  C  0 

•  3h  I  C 

. 3H  HT  . 3HPM 

.  3PML  .  3  IG  S 

.  30 CU 

.  3  H  r  A 

3HC  E 

.  30  E  9 

b  5  o  • 

•  5  H  CM 

. 3 HDU  . 3  HSH 

.  3 HU  I  .  3.IA F 

.  3HAV 

.  3  H  A  C 

3  H  A  0  P 

»  3  H  A  0  J 

b  bu  C 

•  3H  A  X 

.  3  H  4  H  .  3  H  A  0 

. 3F  »J  . 33  AC 

.  3HA  J 

. SHARE 

3114  JF 

,  30  A  JH 

b  7  0  0 

•  SH  4M 

. 3HAMS . 3  H  AM  H 

. 3  h  A  M  E . 3HPR 

.  31!  AG 

,  30  TO 

3H  A  A 

.  30  4S 

ofcO 

»  3HASH 

.3  HASH  .3  HA/ 

»  3  HP  H  .3.1“  T 

.  3HHM 

.  3HD  T 

3HSN 

.  3HF  N 

t>  90  C 


.50  JL 
,  3HE  M 
.  30EC 


.  SHA  SC 
.  3HCN 


30AN  / 


700  J 
7  lv'.' 
7  2oC 
7  5  00 
7410 
75cC 
7600 
7  7Cr. 
7  a  u  c 
7  VO  0 

a  o  c  o 
eioo 
eauc 

t  50  0 

e  4  jC 
25  u  o 
esc  :■ 


c 

C  IM  T  I  A  L  lit  VARIABLES 

MPITEC4. 20101 

20DD  FORMAT  (  1H1/28H  THESE  RECOROS  HE“E  0  ELF TEO  : /  ) 
MfEA  F=3 

CC  15  1  =  1.  NYCAP 
00  10  J=1  .5 
10  TOIALCJ  .11  =  0.0 
CC  15  J=1.110 
on  15  K  =  l,v 
15  RE  C<  I  .J  .X  1=0  .0 
CC  20  1=1.5 
20  I  NFE  (  1  )  =  0 
FLAG='. 

1 PE=  IBLK 
PE  =  I  Bl.K 
ICF=  HLK 


B70C  NP  =  0 

esos  C 

c9UJ  C  FE  A  0  THE  BILLET  FTLE 


9GJ0 


40  Afi=  NF  «  1 


1  ICO 

v  20 ; 

950  0 
9400 
95  0  5 
9  oOC 
9  7  0  C 
9  fc  _  > 
99  JC 
luO  O') 
Uku 
1  C  ?  0  0 

1  j  3  J  ) 

IC4«.0 
10500 
10  6  0  0 


PEAD  (1  .VCOO.DAT  A=42.EI<F=42*EN!)=ll  )  .  R  ESl!L  TS=  I  *11)  > 

•  PE  »  I  CP.  IF  A  .KPG.  (  JFET  (I  ).  CP£(J  C  I  ).I  =1 .5  ) 

5000  FORMAT  (37X.A6.A2.20X. A4 ,9X. 1 1. 10X. 5(1 4. Al  )  ) 

00  TO  50 

c  parity  cf  other  effcf 

42  ARITETfa  .3000)  MR . ISO. PE .  I F A . KPG. { JP EQ ( I  ). KP F3 ( I ) . t  =  1 . 5 ) 

300  0  FORMAT  (JHCERPOF  .  I  P  .  2  X  .  A 10  .2X.  A  6.  2  X  .  A4 . 1  3 . 2  X.  5  C I  4  .  A  1 .2  X  )  ) 

C 

C  GCGO  FLAG 

C  If  SAME  PE  AS  P<EVlGUS  KECQGO  RUT  NOT  A  FORCE  SUPPORT  PE. 

C  <FLAG=.  ).  I  HEN  p£AC  AGAIN 

C  IF  SAFE  PE  AS  PREVIOUS  RECORD  AND  IS  A  FORCE  SUPPORT  PE. 

C  (FLAOu),  THEN  ACD  THIS  RECORD  TO  THE  SUALITY  MATRIX 

50  IFCPE.EC.IfE. AND. FLAG. E8.D  )  GO  TO  40 
IFTPC.EC. IPE. AND. FLAG. NE.C )  GO  TO  IDO 


1 )  7  v  D 
UkO 
i  j  ac  : 
1 1 0  c  0 

1L10C 
1 1 2c  0 
1 13cD 
11400 
11500 
1 1600 
117-0 
1 1  P  j  0 


c 

c 


c 

c 


NEW  PE 

COMPLETE  PROCESSING  CF  THE  PREVIOUS  ONE 
IF  (FLAG. EG. C  )  GO  TO  fl U 
CALL  HR  PEC 

RESET  VARIA8LES 
80  IPE=PE 

CC  85  1=1.  FYEAP 
1)  0  8  5  J  =  1  .  1 1  ■ J 
OC  85  x=l.D 
85  FE  C  (  I .  J  »K  1=0.0 
EL  AG  =  0 


11900 
1200C 
12100 
j  ,  1 . 

1 2  j  w  0 
12  4  0'. 
UJJ- 


c 

C  IS  THE  FEW  Pt  PART  OF  FORCE  SUPPORT 

I=NSCANX(VARPE( 1  .1  1.70. PCI 
IF  (I  .10  .5  )  CC  TO  4, 

FLAG  -(  I  -l  >/!4  i  1 
C 

C  A  0  0  T>  15  FECCPO  TC  Ipf  DUALITY  m4tp(*  ftHS  PC 
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1  A  b  j  i. 

l27:j) 
128GC 
I290C 
I  jOu1) 
13100 
I32GO 
ti  3uC 
1  3  40  C 
1  3500 
I3  6u0 
1  3  70  G 
1  3800 

1 3  G  G  0 
140GC 
14100 

1 4  200 
14300 
14400 
145uP 
t  4  66  C 
14  706 

14  8  0  0 
14900 
1  GOO  0 

15  io: 
1520C 
15300 
154u0 
155GC 
156CC 
13700 
15360 

15  900 
loOGO 
1610  0 
16200 

1 6  3  y  <* 
1 6  4  C  0 
1 G  5  C  '• 
16  60  0 
1  b  7  v  0 

1 6  €  v  0 

lo96l 
1  7  Co  0 
1 7 1  o  0 

17  200 
1  ?30C 
17400 
17500 
17600 
I  7  70  C 
1  7dj  0 
17963 
ieooc 
18100 
18200 
1 6  3  0  C 
16400 
1850C 
1  6  6  6  0 
1 1 7  y  0 

iee.,0 

1890C 


10  0  CALL  4  Dll 

gc  re  40 

END  OF  FILE 
ClJii  FL  F  T  E  LAST  PE 
110  IF(FlaC.EC.O)  GC  TO  140 
CALL  WRREC 

:  WHITE  E A C  OF  FILE  MARX  ON  01  SK  FILES 

140  J=  NYEAR  *  1 0 

CC  142  I=li»J 

eacfile  r 

142  ^HUD  I 

:  HAKE  SURE  ALL  PE'S  WERE  C01PLETEO 

DO  148  1=1.5 

IF CT APE ( I ) .EO.CFKC  I )  1  CO  TO  143 

WPITE(b»700G)  CT  ITLE (I.J  )»J  =  l.5)»  TNPECI  l.CHKII ) 

7000  FOPMATC 1 4F0SUPPCPI  ACT.  ►  5  A  4.  8  HC  ON  T  AI  N  S .  1  2  ,  1  6H  PES  INSTEA.O  OF  .12) 
148  COAT  I  HUE 

I  PHI  AT  TOTALS 

OR  ITEC6  .4030  )  <1.1=1.  NYEAR  ) 

4030  F  CFMAT  C  1H1//4X. 7  HSLPPOK  I. 37  >. 4HY  EAP / 

•  5X.AHAhEA.7X. 61! 6// ) 

OC  165  1=1. S 

165  WBITEC6.4C5  0)  (TITLECT.J  )»*=!. 5). (  T0TAL(I»J).J=1.  NYEAR) 

4050  F  OR N  AT  C  7 HC  .5A4.EX.6F10.G  1 

CCPY  5  SUPPOFT  AREAS  TC  TAPE 

SEPARATE  YEARS  U  A  FLAG  PECOPO  WITH  PE=9?79S9 
OC  1ST  1=1.  NYEaR 

RRITEC2  .5060)  C  TOTAL  CJ.I  ) . TKPEC J ) . J  =  1. 5 ) 

5000  FORMAT  (5CF6.0.T6) > 

IU  =  I  «  16 

170  FEAD(IU»ER£=175  )  PE  . FL  AO.  <  (RED <  I  »  J  .  K  > .  K=  l .  9  )  .  J=  1 . 1 1 0  > 

WFITEC2.501C)  PE. FLAG. I  CF  EO  <  I .  J  .  K  )  .  K  =  1 . 9  ),  J=  1 .  1  1C  ) 

5010  F  C  F  M  A  T  (2  16  .VOOFb.u  ) 

GC  TC  1 70 
175  P£=9999?9 

WRITE  (2.5010)  PE.FLAG. (CPECC T.J.K >»K=1 .9). J=l.  119) 

180  CL CS EC  ill) 

ST  OP 
E  AC 


S09PCUTIAE  ACC 

C 0 H M C K  / 1 1 /  FE0C5.116. 9 ).  NYEAP.  FLAG 
CCMEN  / J 3 /  PE.  TFA.KPG. JFEOCi  >.KRE«C5)»NR 
CCFMCA  /  $  A  /  JFATEC110).  IPaTECUG) 
ClFEASiOA  IVALC6) 

data  ival  /  iha,  iho.  ihc.  mo, 

•  1H1  .  1HF.  1FC.  1HH,  INI  / 

THIS  FCUTTNf  CECOOES  A  RECORD 


F  I  A  C  RATING  INDIA 
RRA=NSC\NXCJPATEC1  l.ltC.IRA) 

IF  C!C  FA  .EC  .6  1  GO  TC  4b 

FINO  PAYGRAOE  INDEX 

E9  IS  IF  POSItlON  l.  ....  El  IS  IN  PCI  S I  T  l  ON  9 
IF  (X  FG.Lt  .  l.CF.KPG.GT .9  1  GO  TO  4  j 
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•  V  x  V  0 

l » 1  oG 

1 9  2  J  9 
i  ;u'» 
l  i  _  0 
t  /iu  J 

i  9  S  u 
19  7x0 
14*09 

1  9 

2  J  0  0  0 
2  C  t  x  C 
2  92  .G 
2G3jO 
2C  409 
20503 
2CEC0 
2  C  ?  0  C 
246x0 
2C  ICC 
2 1 0  u  C 
21  l  jft 
21  2%j0 
21  300 
2  14  'J  2 
21  .09 
216..9 
21  '00 
2  1  “  0  C 

21  r,iO 

22  90  C 
2  2  1  0  C 
22?j9 
2  2  5  j  G 
2  2  »  0  0 
225x0 
22  609 
2  2  7  0  0 
22*09 

22  IOC 

23  000 
2  3  ’.20 
23iOC 
2  3  >  JO 
23409 
23  50C 
23600 
23?o) 
23POC 

23  90  0 
2  4  9  GO 
2  4  1  0  C 
242C0 
2  4  5uO 

24  40  0 
24600 
24600 
24700 
24409 

24  90 
2690C 
26100 

25  20 
2*300 


IU'0-  l  .)  -i(P>. 

COMPUTE  REQUIREMENTS  -  LAST  CHAPAGTFP  IN  THE  ('CO.  E1ELU  IS  A 
LffTLR.  TRaNSLAU  IT  TO  A  MM  ft  (.a 

CG  ?J  A  1.5 

X2=NSC ANX  (IVAL.S.KFLQd*)) 

20  HCC(A»XRA»KFG)=RLG(K»KPA»!(PG)*FLOAT((JF£a(K)»lx>«K20 
RETURN 

EPFCF 

40  M  1Al=ALIAE«1 

IF  { AL INE.LT.3i >  CO  10  5  j 
AL I6l= j 

WRITE  (6.2000) 

2000  FORMAT  (  1  b 1  ) 

50  Hr  I  f E (  4  »  19C-C  )  NR.PE  .  IPA.APC  .<J»EJ(  I  ).KSFO{  I  ).  1=  1.5J 
1000  FCRMAT  (1R0.IP.2X.A6.2X.A4. IS. 2X. 5(14. A1,?X) ) 

RETURN 
£  AC 


SOfcr-CUT  I  AE  WRPEC 

COMMON  /  *  2/  X(5»110  >.  Y(5).  VAPPEU4.50.  CHIU5).  TNPE(5). 

*  T  !  TLE  (5o).  TOTAL  (5.5) 

C(F“i.A  /  i  l  /  ffOO.llO.V).  AYE4P.  FLAG 
CtRMCN  /i(/  IPt 

C  C  R  *  C  A  /1A/  JPiTE(UO).  TKATEdlO) 

ClBEASICN  IPtC(l).  A ( l  ),  9(1) 

£  CL  I  VAL  E  A  tt  (  1PECU  O.IPE  ) 

ITTFGtt  A.  t 

SUM  TOTAL  CE  C.  F3F  TP  IS  SUPPORT  APR  4 
A  A  C  FLAC  COMPLETION  OF  THIS  PE 
00  65  1  =  1  .  A  TEAR 
XCI.  !)  =  '>.) 

CC  SO  J= i  .  1 1 1 
00  60  K  =  1  * i 

6  j  X(  1.  1)=  X(  1.  I  )«FECU. J.R  ) 

TCfAL( FLAG. T)=TGTAL(FLAC»T)4X( 1,1) 

6  5  CONTINUE 

I  APE  (Fl  AG  )=  TAPE  (FLAG  )♦  1 

TRANSLATE  PE  FROM  A  ALPHA  TO  A  NUMERIC  ONE 
EX.  2  4  156  N  3ELCMES  2415b? 

A (  t )  =  OH 

Call  «ovt  (  ipeo.6.  »( 1 ),  1 . 1 ) 

B  (  1  )  =  1  HP 

I F  (  (  ( 1  ) .  E  C  .  1 H  -<  )  b  ( 1  )=  1  H 1 
A  (  1  )  =  I  P  F 

CAtL  MCVE(j(l ).l.A(t 1.6.1 ) 

F E A 0 ( A . f 0 6 1 )  JPE 
E060  FORMAT (16 ) 

1  WRITE  MATRIX  CA  OISA 

00  7 1  J=l ,  AYEAP 
10=10  «J 

70  wRITE(IO)  JFE.FL AG. ( (PEC ( J. K.L >.L=1 ,9),K=1 .1  IF ) 
l  PRIM  TFE  CATA  FOP  TRI!  P£ 

C  GCLAPSf  PAY GRADE  ANC  PRINT  PCD.  BY  PAYING  ANO  YEAF 

WFll  Uu.ROOO  )  (TlflEU  LAO.J).J-I.r»)»IIM. 

•  (I.T«  l  )7  -.  1«.  ••  ) 

2090  fCRMAriihl/»bX.5A4/T(,X.Ab//63X,5HYE*F./ 
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* 

• 

*5410 

•  1jX.6HFATIFC.jX. 6  1 1  ,  .  I 7/  1 

255o0 

CC  75  1*1.  FYEAP 

25400 

T( I >=0 .0 

257C.0 

OC  75  J  =  l  .1  l;i 

• 

258  OC 

XC  I  .  J  >  =  0.0 

• 

259o0 

00  75  K=1 .9 

26000 

75 

X(I.JJ=X(  r.JH  REflt  I.  J.K) 

26100 

CC  7  8  J*  1  .  1 10 

2o20Q 

00  7b  1=1.  RYEAF 

26100 

I F  ( X  (  I  •  J  1  . NE  •  '  )  GC  TO  77 

2640C 

76 

C  C  R  T  I  R  J  E 

26500 

CC  TO  78 

26600 

77 

H  F IT  £ (6  .8“ 20  )  IRATC(J). JRATE(J).(Xt I.J».I  =  1.  NTEAPJ 

26  7C0 

8020 

FCFHAK8X.A4.2X.A4, IX. 6F15.C) 

26800 

DO  ?4  I  -i  .  ryEAR 

2b9C3 

TCI  J  =  YC  I  >»XCJ  .J  ) 

27  00C 

79 

CCM  INUE 

27100 

78 

COM  INUE 

2  7  200 

C 

27100 

C 

FFIM  TCTAL  UY  YL  At*  TOR  THIS  PE 

27400 

C 

PRINT  CURRENT  IU1AL  6Y  YEAR  FOP  THIS  SUPPORT  AREA 

2  75  00 

NPITECb.SC  40)  (YCI),I=1»  NYEAR) 

276JC 

2040 

f CFHATC 1H0.8X.8  HPE  TO  T  AL  »  4  X  .6  FI  5 . 9  > 

277  jO 

NRITE  16.8055)  C TO T AL C F l AC . I ). I = l .  NYEAP) 

2  7  850 

80  5'J 

F  CRMATC  Ih'l  ,6X  .12  hPUMNC  T0IAL.2X.6F15.0Y 

2  7  9u0 

RETU  PR 

• 

2  8  0  0  C 

LRC 

28100 

282G0 

c 

c  •  «  *  * 

28400 

22500 

2  e  60  c 

28700 
28  ?u0 
28900 
240  00 
2  0  K'  0 
2  520C 
24500 
294. C 
29500 
29500 


INTEGER  FURCTION  NS CANX CH. L.I > 

CIPtASJCN  M(l) 

SEARCHES  THE  FIRST  L  ELEMENTS  OF  ARRAY  H  FOP  THE  FIST 
CC  CU F  A  R CE  OF  I 


5  IF(HCJ).IS.I)  GO  TO  U 
J=J-1 

IF  ( J.GT.O  )  GO  TO  5 

10  RSCARX=J 
RETURN 


Routine  SUPPORT,  main 


WRITE  A  FLAG  RECORO, 
PE  -999999,  TO  SEPARATE 
THIS  YEAR  FROM  THE 
NEXT  ONE 


LOOP  ON  THE  5  DISK  FILES. 

UNITS  11-15,  WHICH 
CORRESPOND  TO  YEARS 


END  OF  LOOP; 
DO  THE  NEXT  YEAR 


WRITE  THE  NUMBER  OF  PE 
CODES  AND  THE  QUALITY 
MATRIX  TOTAL  IN  THIS 
YEAR,  FOR  EACH  FORCE 
SUPPORT  AREA.  ON  THE 
ENREP/SUPPORT/QUALITY 
FILE  ON  UNIT  2 


'READ  THE  PE  CODE.  FORCE 
SUPPORT  AREA  INDICATOR. 
AND  THE  QUALITY  MATRIX 
FROM  THE  DISK  FILE  FOR 
THIS  YEAR 


WRITE  THE  PE  CODE.  FORCE 
SUPPORT  AREA  INDICATOR. 
AND  QUALITY  MATRIX  ON 
THE  ENREP/SUPPORT/  I 
QUALITY  FILE 


Subroutine  WRREC 
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FORCE  SUPPORT  PROGRAM  ELEMENTS 


Base  Operations 


24611N 

24612N 

24613N 

24614N 

24615N 

24616N 

24617N 

24618N 

Training 

24156N 

24262N 

246 33N 

84711N 

84722N 

84731N 

8 4 74 IN 

84742N 

84751N 

84752N 

85796N 

86761N 

86723N 

89731N 


Sea  control  project,  air  base  operations 
Sea  control  project,  air  base  communications 
Sea  control,  air  base  operations 
Sea  control,  air  base  communications 
Fleet  support,  port,  base  operations 
Fleet  support,  port,  base  communications 
Fleet  logistics  support,  base  operations 
Fleet  logistics  support,  base  communications 


Readiness  squadrons 
Readiness  squadrons  (ASW) 

Fleet  support  training 
Recruit  training  units 
Officer  candidate  training 
General  skill  training 
Undergraduate  pilot  training 
Undergraduate  navigator  training 
Professional  military  education 
Other  professional  education 
Base  operations,  training 
Education  and  training  health  care 
Other  health  acquisition  programs 
Training  support  to  units 


Medical  Support 

87711N  Care  in  defense  facilities 

87714N  Other  health  activities 


Recruiting  and  Examining 
8 171 IN  Recruiting  activities 

81713N  Examining  activities 

Individual  Support 
88732N  Transients 


IOC 
-'CO 
30  C 
*G0 
‘SOD 
6  0  3 
703 
eoc 
JOC 

iroe 

k  IOC 
1  ?oo 

15  00 

i*gc 

1  50C 
1500 
17.3 
1°CC 

1 70 : 

£.  )0C 
21  Jl 

2  •*;> 

1  IOC 
2*wC 
>S  j'j 
2tjC 
27C' 
l*ji 

2  7J0 
i'  JO 
JUO 
J  ?  '.•  C 

3  JjO 
J* u  C 
3500 
J4.0 
J  7  JC 
3  3  j  3 

3  7  J  C 
*0  JC 
0  IOC 

*  2  u  C 

*  3UC 
*4  03 
*5<JC 

*  5  J  f 
*700 

4  3'jO 

*  >ul 
5030 
•i  t  u  3 
5703 

5  3C0 
5*  tO 
3  5  0  C 
5400 
5  700 
3  0  3  C 

5  JOri 

6  3  3  3 
ok  tO 


IFESE1  FREE 

IUI  MJICU1NU 

TBIAS  i  FFC  CAA7L!P/= 

FILE  tl  II  TLE="ENFEP7 TOTAL/0  ATA-.KINtUOI  SK,  FI  LET  YPE=0  ) 

FILE  9CMN0=PRIMEF) 

FILE  1  C  <  T  I1L  t=  *F  EN0JUL77 /PE  »Ct*.MMI)=PCT*PE*  FILE  TYPE-*  I 
TILE  20 U l TEE- *UCT 7 7/ PE T 01 AL * . X ( N0=0 I SK. FILErfPE**  » 

FILE  3C(TI TLE="SCH  »T  CH".K INC=PE  T APE.  1AXK EC  SI 7L=V92.MLUCK  SI  7 £*9  9  2. 

•  SEPI *L  AC=OCC  *CP  )  j 

FILE  *  1(T  I  TLE="  SCRATCH’"  .KINC*  PE  I  APE  .  1  *  X  PEC  5  I  7  E- *  9  1  *  BLOCK  5 1  7E  *9  9 1 »  ' 

•  SEPI  ALNCODG559  > 

FILE  *2(KlNn=DIiK.MAXRrCSI7£=99l.9LOCKSI7£=v9t.APE*SI7E-19) 

FILE  *SlKIND=UISK.lATPrCSI7t=591.JLICKSI7E=*9I»APEASI?E=lO> 

FILE  AA(XtAJ=UlSK.KAXhfCS17E-99l  .ML  )C  K  5 1  11-  t  .  AP  E  A  $  I  7 1  =  to  > 

FILE  *5<KI*n=L’l  S K.H A XF EC S  17 f  =  9 91.8LJCKS I 7£= 9*1. APE A  SI 2£=1C> 

FILE  AttKlN 0=D  ISK»maXRCCSI7E=*91 .BLQCKSI 7E-*  9 1 . APEASI2C=l C) 

FILE  *7(XI\0=0I5X.PAXFEC517EI*91.9L0CKSI ?E=*7l«AP£ASI?E*lG) 

FILE  *C{TITLC=,,£AHEr/TM»L'!tC".KIND=PETAPt.P  9(1  TECnON=  SAVE. 

•  MAXFECSI7E=952.UL0CKSI7E=99>D.StRI ALNU-CC04J6 ) 

C 

C  CFfAUE  TriE  TOTAL  FE0UIHE1ENT S  HATPICES 

C  PAtlAU  lit  PATCFAOt  FOR  LACH  P£,  IN  EACH  YEAR  I 

C 

C  FILE  P  -  USEF  INPOTS 

C  FILE  9  -  OUTPUT  t  I  SI  INC 

C  FILE  1C  -  RENLCOAL  FILE  SORTED  BY  °E 

C  FILE  21  *  NAFt*  INPOT  -  TOTAL  NOHBEP  OF  ENLTSTEO  BY  PE 

C  FILE  3C  -  SCFATCH  TAPC  -  TOTAL  PF3.  MATRICES  BY  PE  THEN  YEAR 

C  FILE  * C  *  OUTPUT  TAPE  -  TOTAL  FEO.  HAT«IC£S  OY  YEAR  THEN  PE 

C  FILES  *  1 -*  7  -  SCRATCH  CIS*  FILES  FOR  SORT  OF  TAPE  JO  TO 

C  TAFE  * 0 

C 

COHHOA  7*1/  KYFAP.  ICU1P.  TPPiT.  10ISX.  NYEAP. 

•  EXCLPlUO*).  AEX.  SH4PPEC70).  SHARP2C70.10). 

•  NSH(73 >.  NSHT 

CO  PH  ON  717/  KPA.  JPG.  KPE0(5>.  JFEO(S).  NLINE.  IC  I 

/  CORN  ON  7*5/  PE.  BILL  FTC5.110. A).  Q“N(6.H1.1C) 

/  CCHHCN  715/  NAPHCfa.SOi.  ).  NHPECSjl).  NOPE 

• - CCHMCA  /HATING/  IPATt(ilC).  JPATECllG).  I3LK 

INTEGER  EXCLPE.  SHAFPE,  SHARP?.. 

•  PE.  BILLET  , 

C 

DATA  JMLK/SH  / 

DATA  IFATE/3H9H  .  3  HI  A  .3H8N  .  J.IS1  .JHOS  .  3  BE  *  »  3HST  »  JH STG  .  3H ST  S  , 

•  3H  P  T  ,3HTM  »  3H  Cm  .IHCPH.3HGHT. JHGMC.SHFT  . 3HF TG. 3hF TB , 3HF TH. 

•  lH-*f  .3H“N  ,  3H  f  T  .JHETN.3IETR.3HDS  .3HPI  .3HIH  .JHOH  ,JHKC  . 

»  3MF H  .JHCI T. 3IICTA.JHC  IP. 3MCT0. 3HC1P. 3HCTI. 3HYN  . 3HCYN . 5HLN  . 

»  3H  P  A  .  3H  DP  .  3h  S  K  »  3HCK  •  31 M  S  .  3HSD  »  3  M  C  S  ,3Hli  ,  3)1  SH  .JHJC  » 

•  3HPC  » 3  HL  I  » 7  H  C  H  »3HHI,  . 30701  .3IIE1  » 3  HM  R  »  JHR  T  »THR  »3HE  H  . 

•  ,  3HIC  >  IHIIT  .  3HP  P  .  3  H  HL  .JUGS  »  3HCU  .  3H  E  A  .  3HCE  »  JHCO  .JHEO  » 

•  JmCH  .  3H0U  .  3HS  H  . 3HUT  . 31 A  F  . 3H  A  V  .THAO  . 3HA0R . 31 ADJ  .JH At  • 

•  3HAX  .  3  HA  M  .3HA0  .  3HA9  .  J1AC  . 3HAB  . JH A  BE . JH A BF » JH ABH . 3H AE  » 

•  JHAH  .3HAHS.JHAHH.3HAHE.JHPP  .JHAG  .3HT0  .JHAK  .JHAS  .3HASE. 

•  JHASH.JHASH.3HA7  . 3 H PH  » 1HP  T  . JHHH  .THDT  .JHSN  .THFN  .JHCN  . 

•  3H  A  A  / 

OATA  JFArE/*HGlOC»*Ht  l 5C.4H021  J. *H J 750 . *H0 JO 0.4HG 35 0. *H0 *0 J . *HU *0 t 

•  .  4H0  *u*  .*H**5C  .*  H0500  . AHUoO  )  »*H060  I  . *H C6 92  .*H0 50  * . *H0«0  0 . 4 H Ct C 1 

•  »*HOPG2»*H',6OJ.*HOB10.*H09D0.*Hl  00  C  ,  *Hl  U  0 1  »*Hk  0  3  2  .  *H1  Cl  U  .  *H  1 C  8  0 

•  . *Hl U?  .*H1ECG.*H1*30.*H IjMO. *H 161 1 . *Hl o 22.4H IS J J . *H lb* * . *H 1 *55 

•  .*HIG6fc.*Hl  70  0.*  HI  701 .4H175  J.*>ll  PG0.4H1  9  OC  .  *H  230  C  .  *H2 10  0  .  *H  2  20  C 
«  .  4HP50  3  .  *h2  2*L.*H2JGC.  *HP*9  ■i,*H2  HOC.  *H  >700  .  *H  Jl  JC  .  *13200  .  *H  J  IOC 
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>  '  4  i 
3  0 

o  4  J  V 
bSSC 
a  t.  o  5 

6  7  j.' 
of  uC 
a  Af 

7  :vr 
7  1  0  0 
7  2CG 
7  J*0 
74  jC 

7W 
7  f  ,C 
77C2 
7-  .  J 
7  /  oC 
COJC 
J  to  ? 

e  2  c.  c 

c  5  2  C 

H. : 
8S.C 

CiivC 

2  7  C  7 
P?  jC 
7  7  j  C 
VC  i  5 
.  I  ..  C 
,j.. : 

3  i  -  0 
7  4CC 
■iSt  C 

*njr) 

n  ;c 

72  wC 
9  • .  2 

I  V  >  V  C 
\Clu2 
1.  't  & 

1  c  *  c  c 

1  :•  4  a  V 

to  , 
t  •:  c  o  c 
H7JC 
1 C  2 " 

I  C  /OC 
it';..  7 

II  too 

U  ?  0  c 

I  1  t  a  C 

114.0 

I I  'j  o  0 
1  1  6  o  0 
1  I  ?  t,7 

1 1 »  0  c 

l  l  Ja'j 

12'C' 
121  i  C 
U»jO 

I.  to' 

I2  4j- 
17‘.0C 


•  •  4ltJ/)2»4l'td'.J»4RS9wC.4i'4o,/0.4M4».r.  u»4tt4  1t..41l42>  .  3  7  !l  4  1  0  0  *  4 1  4  to' 

•  ,<,tU  ?0  0  »  411 44  Oio  »  4H*o,'8 C»  4HS1  0  '.  4HVU.G.  U(S  JP  0. 4lt b 4 1 0»  411 5o0 1  »  4H  58  J C 

•  »4H‘o  7?.'  *4hS2C  ..  .4Ho.  2'-.4H&l«  >.  4He  ?«,  '  «  4)(r>  2  7  b  .4  Hi  ?  ,  6  »  4  )(6  J  30  »  4H6  j  JO 

•  .  411  fa  4  00 .  4HhiOO.4PC520.4Hit.)  ).  4Hb  700.  4HC  7  0  4 .4  Hb  7  0‘S  *  4H670  6  *  4H  o8  0  C 

•  .  4lli.  <ui.  .4lit.  yOl  ,4H0  lo?»  4H673  (.  4H7'U  1.  4tt7t  n  o.AII/’v  <'»4ll7  ? ) 0  .411  ? *j u ^ 

•  *4H7'jO  1»4m7s02»4H75C  !  .  4H7  4  0  ) .  4H  7  600  »  4H  7  7  0  0  •  4  it  SO  J  0  *  4H  2  i  0  0  #  4H  1  £0  C 

•  .  4rO70  r.  .4HO.J  J0.427P00/ 

C 

C  pE*C  ARC  DISPLAY  11  SC  I  INPUT 

C  ALL  INPUT 
C 

C  READ  KAFR  I A  PC  ANC  CCHPLTE  NARM  REQLIPCHlNTS  (IF  ICllHP=l> 

IF  ( ICbtP.te.l )  CALL  NAFmRG 

C  IM  rr  AL  T/C  t/AFfAGLCS 

WRITE  to. 41C  ) 

write  (*.;>*;) 

CC  JO  1  =  1.  b 
110  JC  J  =  1  .111 
00  Jo  K  =  1  .  1* 

JO  Q  P  R  ( I .  J  .K  )  =  0.C 
KRA=  I  ILK 
I  PC- I3LK 
P  E - ! FLA 
K  Y  E  \  H  =  5 
N  Y  E A  R  =  1978 
C 

C  RE  A  C  3ILLFT  flLC 

ic-o 

4  C  I  C=  I  C  ♦  1 

RE  40  (10»4JP»ENP  =  2lO»ERR  =  5,>.  *0AT4*50»FESL'LTS=Ii70) 

•  I  PE  .|(RA  .JP6.(  JRECt  11.KPE3  (  I )  .  1=  1»5  ) 

4  J  0  f  CFKAT  (3  7X.A6.22X.  A4.97.  II  .lOiC.St  I  A.  Al  1) 

GO  TC  60 

c  so-tc  kind  a  crstf 

5  C  W°  1  T  E  (61.360  !C. INF,. IFt.KFA.JPG 
C 

C  GOLD  FLAG 

C  IS  THIS  4  NCR  PC  (IF  BLANK.  IT  IS  T PL  FIRST  PF ) 

60  IF  ( PE'.Cw.  IPC  !  GC  TG'  l  4C 
IF  (PE.EL.JULK)  GC  10  UC 
C 

C  CntPUTc  tOIAL  F  E  Q .  PAIRICES  FOR  CURRENT  PE 

C 

C  IS  THIS  PE  PEINC  CELETEO  BY  IHE  USE°? 

IF  (NEA  .Li  .1  >  4.0  TO  82 
OC  ?<'.  t  1-  1  .KEY 

IF  (FE.EC.OCLPCdl  ))  CC  TC  120 
ec  CONTINUE 
C 

C  IS  THIS  PC  BEING  OSEC  AS  4  PROXY  FOR  OTHER  PES? 

C  OP  IS  This  PF-G  3UAL1IY  BEING  REPLACED  dY  THAT  OF  ANOTHER'S 

C  I A  WHICH  CASE  SKIP  THIS  PE  FOP  NOW 

82  IF  (RGIIT.LT.l)  GC  TO  94 
DO  92  I  1=1  ,NSHT 
I 4  =  N  SHC I  l  ) 

IF  (FE.ES. SPAPPECIDJ  CC  TC  10  1 
DO  90  I  2=1.14 

IF  (PL.EC.SPAPP2U1.J2  ))  GO  TO  122 
SL  CCMIMJE 
92  CONTINUE 
C 

C  KCpfaL  Ft  -  PFCtLSS  IT  IN  CiHl'UTE 

94  call  Output 
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U'«cc  ac  re  i 

t  i  r  j  c  c 

i>»:  c 

l.'ROf  C  THS  PE  IS  BEING  USLC  »$  A  PROXY  FOR  OTHERS.  PROCESS  ALL  SOU 

I  500  )  10  J  C  ALL  CliNPUt 

lilC-'  00  ltj  12  =  1.14 

1J20C  PE  =  SH»FP?( I  1. 12 ) 

1  5  30  "  CALL  CtIHPUr 

lj*U'  111  CCM'.'I  LE 

;35oe  c 

13S03  C  liHlALUE  i/AFIABLES  FOR  THE  NEXT  PE 

1  i 7 0 1  120  00.  IS"  r  1=  1 .5 

U80C  oo  no  12=1.110 

13  9GC  00  15.'  J  5=1.9 

140C6  110  bILLETl  11.12.15  )=C 

U10C  P E  5  I  f  E 

i  a  >  o  e  c 

1*500  C  ADO  RULE!  FE£UIPt*ENTS  TO  TOTAL  FOP  THIS  PE 

1**CC  1*0  CALL  ADD 

I'.SUC  (10  TU  *0 

14SC0  C 

l*7t,C  C  ENG  IF  FILE 

IL'CT  210  LOCK  1j 

U9GC  C 

15C0C  C  FPCCESS  LAST  PE 

iSluC  C  IS  TPIS  PE  JEING  OELETEC  R  Y  THE  USER? 

1S2C  T  IF  (  NE  X  .L  T  .  1)  GO  TO  222 

1S50C  UC  2  20  I  1=1. 1  LX 

1  S  *  0  C  IF  t  FE .EO.LXCLPEtll  )  )  GC  TO  260 

ISStO  220  CONTINUE 

l  5  60  C  C 

1570C  C  IS  THIS  PE  BEING  USED  AS  A  PROXY  F OF;  OTHER  PES? 

IjACO  C  CF  IS  This  PE*S  QUAE!!*  ReiNG  PEPLACEO  BY  THAT  OF  ANOTHER'S 

159CC  C  IN  kHlCH  CASE  SKIP  THIS  PE 

l&OCG  222  IF  (NShT.LT.I)  GC  TO  23* 

Iblf.  00  2  52  I  1=  1  n\ S H T 

16200  I*=NSH(I1> 

T65GC  IF  < PE .Efl.SHARPEI  II  )  )  GC  TU  2*0 

HAGS  IF  (IA.LT.  n  GO  TC  232 

16500  OC  230  I2=1»I* 

loSjl  IF  ( FE.E3.SHAFP2 (11.12  ))  GC  TO  260 

1670C  '  230  CONTINUE 

1S8GC  232  COM  INUE 

16900  C 

1  7  00C  C  N  CF  ML  FE  -  PFCCESS  IT 

IT! CO  2  34  C  ALL  COMPL  T 

1T2C0  GO  TC  >6J 

1  7  30  C  C 

1 7  *  g  C  C  THIS  PE  IS  BEING  USEC  AS  A  PROXY  FOR  UTHERS.  PROCESS  ALL  NO  W 

1 7 5  jG  2*0  PE*SHAF  P£  ( I  1  ) 

176CC  CALL  CUAPLT 

17700  IF  (IA.LT.1)  GO  TO  260 

1 7  *  j  0  00  250  1  1=  1.1* 

l  7  90  C  P£  =  SHAHP2(I1,12) 

ldOofl  CALL  COHPUT 

1R100  250  CONTINUE 

1P20C  C 

l d  300  C  COMPUTE  TOTALS  IN  THE  0*N  ARRAY 

l d  A 0 C  260  OC  SCO  J=  I  . 6 

12500  00  300  1=1.110 

1?6L0  00  3C3  K=  1  .9 

lf/JC  300  flMNt  J,1  ,10  JsQMNCJ.1 ,10  )«CHN  CJ.I.  IO  i 

1  d 14 L 0  CC  111  1=1  .6 

IP  TUC  OC  3  1C  J=  l  .  1 6 
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DC  5  1  K  I  .  I  1 

3  1  C  QMN ( 1 »  111  »J)-UMN(I»lll  *J  I 

c 

C  PRINT  THE  SUM  Of  ALL  TOTAL  MATRICES  FOP  ALL  NAVY 

x  =  icc*ap«2 
C  all  PRINT  (I  ) 


FIND  ThGSC  PFCGFAM  ELEMENTS  NOT  ON  ThE  BILLET  FILE 
AND  PRIM  MARKING  MESSACES 
J  J  IF  (ICORP.EC.2)  GC  TO  345 
M  =  ITE  C  6 . 4  1  C  ) 

00  5  C  :  =  I  *  AGPt 

IF  ( NRPEl  I  >  .LO. TriLK  1  GC  TO  340 
i<  R  I  T  £  <4#  4  20  NMPEtl > 

340  CCNT  I'JUE 


■  C  ) .  5 

aoc : 
•iu: 

?<v  * 
2.  5 J* 

2  14  0' 
M5lG 

3  1  o  0  C 
1  I  70  ’ 
iitt 
i!40f. 
2201  ‘ 


3  4 5  IF  C  101  SK.LC.O  STOP 

Pi.Vi.MTE  ELTPUT  TAPE  FROM  A  (P£  T PEN  TEAS  )  0 POL"  ID  A 
(YEAR  TaEN  PE  0  CAL 
h  t  K  I  NO  5* 

CALL  P  E  A  P  A R( I  C  Q  "  p  ,  K  Y  t  A  R  ) 

SUP 

35,  FOfcMAf  (  IU  .^/HThFSE  EECLRC'  h  0  J  _  JELETRO:/) 

555  FC.'NAf  UH.27hTlfSE  RCCCPC3  x.U  07  OK  :/) 

3  6  0  f  C  F  M  A I  C25H.LPFOP  IlLE  1C  P EC  OF  0  .  I ?.  1  TH  INDICATOR. 

•  IE  ,'!H  Oill#A>.»3Y»ll,[3) 

» 6 C  FORMAT  ( » H//J27 MjR'FOE  IREPLNTS  FuR  OFFICER  CANGI3A  TES//44X. 1  1PFI 

•  SC  AI  YEAP/CX.HMPAYGRADE.feX.tJl )/ ) 

390  FORMAT  </lC*.!l.SX»61l.J 

40  0  FCR-4T  {//*>. 5HTUTAL. ox. blir/m  ) 

4 1  j  FO-aT  MM,"  TOIALS  OF  THE  UNIT  REQLIREHENTE  MATRICES”) 

420  FCrAAT  (1)..?1H  the  pPUCFAH  ELEMENT  ,Ab,37H  15  NOT  INCLUDED  IN  THI 

•  S  3’LLFT  Flit.) 


SUacCUT I  N  E  INPUT 


THU  SJiKruTJNE  FEADS.  CHECKS.  AND  DISPLAYS  USER  INPUT 


2>  'Jt 

2  5  OuC 

241  jC 

242  J  C 
24  i.r 
2h  4CC 
A  4  5  4  ' 
2. to: 
24  7c: 
2-.“iC 
2  4  4  o  C 
2  S  *.  - - 


CQRHCN  /Al/  KYEfcF.  ICGPP.  IPPNT.  ICISK,  NYEAP, 

•  EXCLPIC1C4),  NEX.  SHAHPEC70).  SN  ARP2  (  70  »  10  >. 

*  NS!H  7l  )  .  NS  HI 
CCA"CN  /  t  3  /  Lrfi  A  C  (25. 1  1  1  ).  NFR  AC 

COMMCN  /RATING/  IFATEUIO).  JRaTECIK).  IBLK 

OIPENSICA  TFFAC<25.  11  1  0 

ECU!  VALENCE  (Uf  P  ACT  1  1.  IF  (ACM)  ) 

Of  PENSION  I  Tdp( Tc  )»  MATP]X(2.5> 

INTEGER  EXCLPE.  IPARPE.  SH*«P2 

DATA  ( NATR  1X( I  .!  ). 1= 1 o  1/4HNA9 1.4H  5CA.THLE0.1H  .1H  / 

0  A  I A  (PAIR  !>(?,  I  ).!-1.5)/4HRlLL>  4 MET  P  » 4HEQUI .4HREhE . 4HNTS  / 
DATA  HNAR4/4HNARP/.  HR ILL  1/ RHBILLE  1/ 

DATA  HNC/2HNC/.  HYlS/THIES/ 

READ  CONFUTATION  !NtIC‘TURS.  COLS:  1-6. 

"NARM"  -  SCALE  TPE  BILLETS  (1 Y  THE  NARM  INPUTS 
"BILLET”  -  DC  NOT  SCALE  THE  P.fLLETS 
READ  <0  270  ICChF 
IF  < ICOMP. EC. UNARM)  IC0MP=1 
If  ( 1CLVP  .ES  .Ha  ILL!  )  TCCPP  =  2 


1 


owjc  1  >  (ICUPP.nE.1  )  lull'-.' 

2s50C  WRITE  (6.32D) 

2S60C  *»  R  X  T  £  (6.310  C  MATh  IX  ( I  COHP.K  >.K*1  .  *  ) 

2  >700  IPRNl’-l 

258  OC  C 

25VuG  C  PEAO  OUTPUI  FILE  !  N  C I  C  A  TOPS.  COLS:  1-6. 

26000  C  -NO*  -  DO  SOI  SAVE  CUTPUT  BY  PE 

2-.1CC  C  -YES"  -  00  SAVE  OUTPUT  BY  PF  ON  A  TAPE 

coin"1  PE  AO  (e.27u)  TOISX 

2=3uC  IF  ( IDl SK .EC.HNO )  IDJSK=0 

2°400  IF  (IDISK.EC.HYES)  I D I SK  *  1 

26  50  C  IF  (IDISK.EC.O)  GO  TO  4C 

2660C  WHITE  (6.340 

267U  WRITE  (6.33J)  ( MA TR IX {  ICOMP  ,K ), K= 1 . 5  ) 

2  b  P  0  C  GC  TC  50 

2  6  9  0  C  40  WRITE  (6.350 

5j  CONTINUE 

2  / 1  0  C  C 

2  7  2  0  f  C  READ  HUTCH  PES  ARE  BEING  EXCLUCEO 

27303  C  11  PE  CCCE5  TO  A  LINE 

2  7  4  u  C  C  PE  CEDES  GC  INTC  COLS:  1-6.  9-14.  1  7-  22.  25.30  .  3  3-  38  , 

2750C  C  4  1-46.  49-54,  67-6?.  65-7...  73-78 

2760C  C  THE  LASI  PC  CCOE  BUST  3E  FOLLOHED  BY  4  BLANK  CODE.  IF 

27700  C  THE  LAST  PL  CODE  IS  THE  LAST  ONE  ON  A  LINE  THE N 

2760'  C  PUT  The  PLANK  CODE  ON  THE  NEXT  LINE 


27  9UC 

NE  X=  C 

'  t 0  0  3 

60 

READ  ( i.  »  3  P  C  )  (I  T«P(  I  3.  1  =  1,103 

iS  lur 

0  0  7.  I  -  1  .  1  j 

2  8  2  6  C 

If  ( I  TPP(  1  ).L6. I3LK  1  GO  TO  PO 

Zi  30" 

E  XCL  PEC  Ni  X  «I  )=I  TPP(  T  ) 

2  £  4  0  C 

7  C 

CONTINUE 

Zt  5uO 

N£X=  NEX  ♦  1C 

2f  60' 

GC  10  oC 

26  7uO 

PC 

NEX=NEX«(I-t) 

:-6?oo 

IF  (NLX.CC.C)  wPITE  (6,290) 

?.t  9  c : 

IF  (NLX.OT.O)  WPITE  (6.41’)  (EXCLPEd  ).!  =  1.NEX) 

2  9  C  0  C 

c 

29100 

c 

READ  -  WHICH  PES  APE  USING  THE  FIRST  PE'S  JATa 

2920?  C  /'  PUT  THE  PE  CCOE  WHOSE  SLALITY  IS  U ING  LSEO  ON  THE  FIPST  LINE 

295 UP  C  PUT  (HE  PE  CCCLS  WHICH  WILL  USE  THE  DUALITY  OF  THE  ABOVE  PE 

2 - 4y C  C  C N  THE  FCLLOHI NC  LINES.  10  PE  COOES  TC  A  LINE 

295 CC  C  -  PE  CODES  GC  INTO  CCLS:  1-?.  7-14.  17-.'?.  25.53.  33*38. 

296CC  C  41-46.  49-54.  67-6?,  65-73.  75-76 

! 9  70  0  C  AS  ABOVE,  the  LAST  PE  CCOE  IF  THOSE  USING  THE  CUAL I T  f  CF  THE 

298CC  C  FIRS1  IS  FOLLOWED  6Y  A  BLANK  CODE 

299l>  C  THE  LAST  INPUT  CF  THS  TYPE  IS  FOLLOWED  BY  A  BLANK  LINE 

2  j  00  C  M  =  1 

20100  S3  READ  (E.iPU)  SHAPPE(Nl) 

iJiii  IF  ( SHARPE (M 3.E..IBLK  )  GO  TO  12j 

2C30C  PEAD  CP.3PC)  I  I TMP (  I  3 . 1  =  1 . 1 C  ) 

3C4GC  DO  loO  1=1.10 

3C50C  IF  (  I  TNP(I  ).£0.  TBLK  1  GO  TO  11(3 

3  3603  SHAFP2(N1»1  )=ITHP(I  ) 

1C70C  IOC  CGNTINUE 

3JP09  1=1! 

2  3  9lC  110  N2=(  1-1  ) 

21 00  3  NSH(N1I  =  N2 

31  1*JP  WRITE  (6  .430  )  SHAPPE(Nl),CSPAPP2 (Nl.I  )»T  =  1.N2) 

3120C  N1  =  N  1  ♦ 1 

215C1  GO  TO  VO 

31400  120  NSHT  *N1  *  1 

2l«,uC  If  (NSIII.EO.i)  WRITE  (6.460 

316oC  C 

3170  C  PEAD  FFAtTION  OPTION  FOR  BILLET  FEOUI  REGENTS  SCALING  BY  PC 
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f 


:l  ■ .  Z 

c 

Fit  j  I  it  1  L.  L  F  ALLIS  10  1  .u 

3  1  9  C  o 

C 

MAX  OF  5  PE  CCOES 

32  00  C 

N  2  =  0 

321  CD 

00  ISO  1=1.5  • 

522G0 

00  ISO  J= 1 . 1 1 0 

323  .0 

190 

UF  R  A  C (  I  .J )=  1 .0 

3  2  A  G  0 

C 

READ  A  R£  WHOSE  QUALITY  IS  TO  BE  CHANGEO.  CI1LS:  1-6 

Ji  5C' 

200 

HI.  A')  (  t  .'j  HI  )  11 

3  2  b  v  “ 

IF  (Il.E Q.IBLK)  GO  TO  2A0 

32  7  03 

N2=N2«I  . 

!?PoC 

IFRAC(N7»  1  1  |  )= I 1 

!2  )uO 

WHl T  t  (b .5  AC  )  11 

3  3  C  l 

c 

READ  the  RATING  name  ANO  THE  SCALING  FACTOR.  COLS:  1- 

3  310) 

210 

R  E  AO  (2 .5  70  )  I 1 . X  ! 

3  5  20  3 

if  ( 1 1. ra. i mlk >  no  to  200 

3  3  3  •.  S 

c 

FIND  ThE  POSITION  IN  IHE  RATING  ARRAY  FOP  THI S  RATING 

3  5  A  u  0 

CC  220  12=1.110 

3  3  5  u  0 

IF  (  I  1 .  EC  .1  FATE(  12)  )  GC  10  230 

33&L 

220 

COM  1  SUi" 

3  J  7  u  C 

GC  TC  2IC 

3  5  F  u  J 

230 

UFRAC(N?» I  2 )=  X  3 

5  5  <  J  . 

WHITE  ( G  *  5  €  0  )  I  l.UFFAC(N2»I2) 

3  A  0  L 

GO  T  u  2  1  j 

i-  102 

2  A  C 

NFHSC=N2 

3  A  2g  C 

IF  (\2. E i.i  )  WF I  IF  (6.SSC  ) 

3-  SEO 

c 

3  A  A  g  C 

F  lTIJFN 

i',b  j  . 

c 

3  A  G  «.■ " 

27. 

FORMAT  ( A  G ) 

£  A  7  C  3 

2  9  0 

F  C  F ' A  r  (15) 

3)0 

FORMAT  (1H*.  .9X.1GHTHE  EASE  YtAR  IS.I5.1H./) 

2AK  31g  FORMAT  (  1HC/1? X»3  IHNU  MATRICES  ARE  BEING  COMPLTEJ.) 

2SGGC  32C  FCAPAf  (IPO/1  )X.39HTP,F  FGILCRIMG  MATRIX  IS  BEING  COMPUTED:/) 

3>lb’  330  FORMAT  (15X.13AA) 

<j?C  3At  FORMAT  (  IR./l' X.AGhTHE  FOLLOWING  PERMANENT  FILE  IS  BEING  CREATED:/ 

35 3 . C  »  ) 

!>A„>  35)  F  0  PM  A  r  ( 1HC/1 ;X . 3FH 4  PERMANENT  FILE  IS  HOT  BEING  CREATED.) 

3iS.  3 PC  FOh-AT  t  1.1  (Ao»2X>) 

!ShC’  393  FORMAT  (>K/lPX»i4HALL  PROGRAM  ELEMENTS  A»E  BEING  INCLUDED  IN  TFE 

Ij7l':  »m atpix.  > 

ISeU/  AID  FORMAT  (lH'i/lrX  »50  h  THE  FOLLOWING  PPOUPAM  ELEMENTS  APE  BEING  EXCLLD 

3  i  9 »,  C  »EO://(  1  SX  »  »6  )  ) 

IdCjj  A  3  G  FORMAT  <  lH.'/nx»63HTi«E  FCLLCwlNG  PPOGPAM  ELEMENTS  ARE  USING  THE  31 

iiU  :  «LLET  DATA  Cf  PE  »A6  >1H  ://(t5X.  \6  )) 

36200  A  5  C  FCRmaT  (  IHC  /I C X »5 9R THE R E  ARE  NJ  PE'S  WHICH  APE  USING  ANOTHER  PC'S 

3o  3GC  *UTlLET  DATA.) 

3oACr  47o  FCFMAT  (Ab.AX.TS) 

5650  1  42 i  FOFM  AT  (  I'M  3  ) 

IjSi  AN)  FORMAT  (  1H  1/1  'X.49HTHE  ESER  hAS  1NPLTFO  A  jlALlTT  h  T  X  MATRIX  ECR  P 

367C?  »E  .It.lH.) 

iof  J'j  5  0  0  FORMAT  (  1H1/I'1  X.A7HTME  USER  HAS  ENTERED  REQUIREMENTS  FU”  AUIC  ,  AA  . 

ia-Ji,-.  • 1 H • ) 

ini'  5 1 C  FCPMAT  (1HG/IGX.A9HN0  QUALITY  MIX  MATRICES  VEPE  INPUIEO  BY  THE  USE 

37  l  j  .  *H  . ) 

37  20  C  5  2i  FCRMAI  (IhO/lOX.AlHNO  RfCUIPEMENTS  WERE  ENTFREO  DY  IHE  USER.) 

3  7  J  0  L  513  FORMAT  (A6.4x.F5.?) 

3/H  '  NAj  )  llIIMA  I  (  II  i, /I  '  X  ./iMItHt  IIILLFI  PEI)  III  R|  ML  N  I  S  OF  fill  FOLLOWING  RATING 

375GC  •  $  BCLENGUC  1C  PROOF  AN  ELEMfNT  .AG) 

S?6gC  5o3  format  (li'X.V’HHIIL  UE  SCALFO  MY  THEIR  CORRESPONDING  USER  FRACTION 

3  7  7  j D  *  :  / /?  j  X  .  I  /  PR  A  1 1  M,  Ml .  .  3  X  .b  HR  R  AC  1 1  ON  /  ) 

!  7  A  J  G  5  7  0  FORMAT  (AA.IX.F'j.C) 

37)00  550  FORMA!  ( 2 .  X . A4 ,9X  .f 6 .2  ) 

3  2  3  C  3  590  FORMAT  < 1HC/1CX.57HN0  ORANGES  TO  THE  3ILLET  FILE  QJALITY  MIX  ARE  8 

131.:  ‘CING  MACE.) 


'.si  C  C  END 

a  sou  c 

a  *  c  <)  c  •••••••  • 

35CC  c 

3860C  SUBROUTINE  NAPMPD 

Je7i.;  C 

•6PCC  C  F  Oh  N  4  T  OF  TAPE  FROM  0P-901N 

ld‘700  C  CONTAINS  ENIISTEO  MANPOWER  TU  TALS  ST  PE  ANO  YEAR 

390C.G  C  COLUMNS  DATA  ITEM 

391CC  C  1-10  BLANK 

39200  C  11-16  PE 

393CO  C  1 7 -20  BLANK 

?  9  4  G  C  C  21-35  SE 

J  95  0  C  C  31-36  SEQ.  NUMBER 

39605  C  32-49  26 

39200  C  50-62  2  T 

39  PCI  C  6  3-  75  77 

3  9  9  C  0  C  7b-a«  7? 

4  0  0 1 0  C  a9-l'l  7  9 

40100  C  1C3-114  HO 

4C20  0  C  115-127  tl 

40300  C  1 2  ? - 1 4  5  f2 

404Cv.  C  141-153  H  3 

4-5u0  C  154-106  P4 

4*6.;:  C  107-  179  e5 

4C2or  c  i e?-i 92  efc 

40P0C  C 

4  j  900  COMMON  /*5/  FLC(6>.  TUTAH6)*  4(11.  R(l>.  IPrD(l) 

41C5C  ECLIVALENCE  < I  PE C< l  )  . IPE  ) 

4 1 1 U  0  COMMON  / J  6/  NARMId.500),  NMPE(530)»  NOPE 

41203  INTEGER  A.  3 

*1  3  0  C  IMEGCR  1CTAL 

4140C  C 

4l5o)  C  INITIAL I7E  WAFUABLES 

4160C  N  OPE  =  0 

4175C  NF=) 

Alt:*'  IPE-IBLK 

4 1  90  C  MP=500 

4  290  0  I  Nl)=  0 

4210'  ‘  WRITE  (5.170) 

4220  C  C 

4235  3  C  SnlP  I  HE  2  HEACEP  PECOFOS 

4  2  4  v  0  PEAO  (20) 

42  5  J  C  READ  (23) 

42600  C 

4 2703  C  RE  AO  A  PECOPU  FROM  THE  NAPM  TAPE 

42  ?  5  0  10  N  R  =  N  R ♦  1 

4  i?'j?  READ  (20.169. END=1U5.ERR=2j  .OATA=23  .P  ES  UL  T  S=  I  NO  ) 

4300C  •  JPl.FEt 

4  3 1  0 C  GO  TO  33 

432C0  C  ERROR  OF  SOME  KINO 

433-0  20  WRITE  16.113)  NF.IND.IPE 

434(0  C 

4350C  C  GOOD  RE  A  C 

43600  30  IF  (JPE.NE.IPE)  GO  TO  60 

4 3709  C 

43H0C  C  SUM  NEW  REQUIREMENTS  TO  THE  OTHERS 

439-0  4)  00  50  1-1.6 

44C».9  50  NARMCI  .  N U PE  >*NA R H (  I  . NOP E  ) 4 1 F I X  ( »E 0  (  I  )«0  .5  ) 

4 4 1 0 C  GO  TC  10 

4  4  7  0  C  C 

44500  C  NEW  PE 

444CC  6 C  IF  (rPL.EQ.IBIK)  GO  TO  «C 

4  4  5  0  0  C 
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1.1,7  0c 

4vt*0C 

U  )lO 
‘.'■.3  0  0 
1.0 1  uC 
4>?.0 
4 ':  10 C 
4o400 
5  S  o  C 
k  ;b  O' 
‘.oroc 
»)“Ci 
4  3  V  t  '. 
4fc  C  U  C 

4tjl  jC 
4j  >V/0 

i*'.i  t  c  c 

4  n*0'' 

4  o  5  v 
*>  *j  bt  C 
*”.700 

*  t,  P  0  G 

00 
4'  ' jC 
4/ICC 
4  7?0i 

*  /’  !  0  C 
4  /  4  0  C 
4750? 

4  7  4 1 0 
4  7  7  0  C 
4/  4o0 
4770C 
4j  700 
4  r  1  G  C 
4:200 
4“  JtC 
4  P  4  0  0 
4c  >0C 
4  -  6  0  C 
4c /*C 
4  2B0C 
4  ;  M  C 
4>00C 
4  <  1  0  C 
47700 
4.J0C 
4  «40C 
4viC0 
4  IbUC 
4  ,7  JC 
4  /-too 
4  7  0  0  C 

*  0  )0C 
5CluO 
5C20C 

joc 
5^400 
5.50C 
o  r,  s  w  0 
O'.  7uo 
ijPCi", 
;  .  7  0  C 


C 


C 

C 

c 


c 

c 


CHANGE  PL  I  ROM  NUPtl'IC  10  ALPH  P  EPEE  SEN  I  *  HUN 

A ( l)=fcH 

CALL  MOVE  < 1PE0 .6. AC  1  ) .  1  .  1  ) 

0(1)= IHN 

IF  ( A{ l  ).EQ.1H3  )  Q  (  1  )=  1  M  H 

Call  muve  ( iped (  i  )» i  . nmpe  (nope >.  i .  5  ) 

CALL  MOVE  (fl<  It.  t.  NMPE  (NOPE  ).&.  1  ) 

01  SPLAY  I  ML  PI  ANO  THE  TOTALS  UV  YL  AH 
AND  ADD  TO  the  ALL  NAVY  TOTALS 
MFJTE  (5.140)  NMP£(NJPE>»<NARHCI»N0PE>»I=1*6) 

DC  70  1=1*6 

70  TOTALCI  >  =  TCT  AL  (  I  >«NAPM(  I  ,  NOPE  > 

IF  11NO.LI.O)  GC  TO  1(1 

INITIALIZE  FCP  NEH  PE 
eo  NOPE  =  NOPE  «  I 

IF  (NCPE.GT.MP)  NCPE=MP 
I P£= JPE 
DO  PC  I  =  t  »«> 

9C  NARMU  .  NCPE  )=-0 
NMPE (NUPE  >  =  T  lLK 
0  0  T  L  4  0 


C 


c 


c 


c 

c 

c 


END  LF  FILE  -  PROCESS  THE  LAST  PE 
135  I ND= “ 1 
GC  TC  o: 

Pflf.T  THE  NAEM  AIL  NAVY  TOTAIS 
130  Rc  I  TL  (4*150)  (  TCTALd  ).  1=1.6  ) 

CLOSE! 2  0  »D  ISP-KEEP) 

RETURN 

11J  FGRMAT  (25H0EFPCR  FILE  20  RECOR 0  ,  I  7. 1  3H 

*  A  5  ,  C  H  DATA.Ab) 

1 4 C  FORMAT  (/2X.AS»4X.)I12  ) 

1 5 "J  FORMAT  (7/2X,5nTuT  AL.5X.7I  12) 

15.  FORMAT  (  10  X  .At,  ,59  X.7  (  1  X.F12  .4  )  ) 

170  FORMAT  ( 1 H 1  * -  N  A  R  R  PE  TOTALS") 

END 


SUBROUIINF  A  00 


I NOICATOF. 


C  CECODES  A  RECORD  FPCH  TEE  MILLET  FILE 

C 

COMMON  7  A  1  /  KYEAF 

COMMON  / 5  5/  PE.  BILLET  (5*11), A) 

COMMON  /PA  I  TNG/  IF  A  TE  ( 1  lu  )»  JMTtll!';),  MLK 
DIMENSION  I FEO  ( 5  ) ,  IVAIO).  Ki'AO(I) 

ECUl VALENCE  (KNA.KFAC(l)) 

common  /r/  hr<A.  jit..  i\HU(r.i.  jurac.)*  niine.*  tc 

0  A  I A  1  V  AL  /  IMA »  ILL*  IHC.  1  H  I)  * 

•  HIE.  1HF,  IMG.  IHH,  1111/ 

C 

C  EXAMI ME  THE  FATING  COCE 

K=NSCANX( JRaTEC 1 ) .110. UFA ) 

IF  (K.F.Q.T  )  GO  TC  173 
C 

C  FED.  ARE  FY1.FY2.RYJ.FY4.FY5,  RESPECTIVELY 

C  TRANSLATE  THE  letter  IN  THE  LAST  DIGIT  OF  THE  FEO.  FIELO  TO  A 

C  NUMBER 

DC  150  K  1  =  l.KYEAR 


51CUI.  R?  =  N  SC  ANX  {  I  VAl  .V  .KrtO  (HI  )  ) 

SllGt  I REO ( K  l  )=(JRIS(K1)*10  )  ♦  K  2 

512G'.  ISg  CONTINUE 

5uuc  c 

51400  C  EXAMINE  PAYGFAOE 

515Cj  C  E*9  IS  IK  POSITION  1.  .  .  .  »  £-1  IS  IN  POSITION  9 

51  6CC  If  f JPG. IT. J. OR. JPG. GT. 9)  GC  TO  1TO 

Sl’OT  JPGMO-JPG 

sieco  c 

51  ACC  C  SUP  T  PE  BILLET  F£  a .  FRCm  THT S  RECORD  TO  OTHERS  FOP  THIS  PE 

5200C  00  160  K2=1.KYEAR 

52100  16  J  8TLLET(K2»K«JPG)=BILLCT(K2»K»J*G)*IR£0(K2) 

52200  RETURN 

52JuC  C 

>246)  C  ERROR  IK  THIS  RECOPO  -  PRINT  IT  FOP  THE  USER 

525G0  170  NL!KE=NL!KE«l 

52600  IF  (KLIKE.LT.J21  GO  TO  2uS 

527  CO  NL I N  E  =  0 

5  2  fl  0  C  KPITE  (9,  5  75  ) 

52960  575  FORMAT  (1H1) 

5J0-'>  255  6RJTE  (7,170)  I  C  ,  I  PE  .K  P  »  ,  JP  C  .  I  "EU 

5  5 1  CO  570  FORMAT  ( 1  PC » 1 10 . 2 X « A0 , 2 X , A  A . I J . 2 X » 6  I  6 )  I 

5J2C0  ENO 

5  5  SCO  C 

5  5  A  0  C  (:••*••••  ..................................................... ......... 

5  55  uC  C 

55  60  C  SL9RCUI  IKE  CCMPUT 

55  7  j  0  C 

5  56  0  C  C.  CREATES  THE  TOTAL  R C UU M EM E N T S  MATRIX  FOP  THIS  PE 

55900  C  XPTIES  THE  MATRIX  Cf.  !AI*F. 

54CCC  C 

5 4 1 0 C  COMMON  /» 1  /  KYEAF.  ICUMP,  IPPNT,  IOISK.  NYEAR 

542C0  COMMON  /ll/  OF  FAC (2 5, til),  NFRAC 

54  56C  CCMMCK  714/  SAvEUlC.9) 

54400  COMMON  /» 5/  PE,  B1 LLE T ( 5 , 1 10 . 7 ) ,  3 MN ( 6 , 1 1 1 .  10  ) 

545C0  COMMON  / 16 /  HA  PM (6 ,500 ) ,  NMpr(SOO),  NOPE 

54  600  COMMON  / A  7  7  TCTAL(6) 

5 47o 0  COMMON  /RATING/  IPATE(tlj).  JPATE(llO),  I-TLK 

5  4  0  0  C  DIMENSION  IFRAC( 25, 11 1  ) 

54930  EflCI  VALENCE  ( Of F A  Cl  1  )  . IF F AC (1 ) > 

5j6C9  /  0 1  ME  NS  1  UN  NORM  (5, 1 10, 9),  amiAL(S),  N$CALE(6) 

55100  ‘  OIMCKSI OK  A(l),  E(li.  IPED(l),  P£0(1) 

552C0  EQUI  VALtKCE  (PED(l).PE) 

5  5  54.  G  INTEGER  PE,  BILLET,  A,  6,  PED 

5540C  REAL  KSCaLE 

5550C  C 

555  CC  C  FLCAT  0  ILL  E I  RECIIPEMENTS 

55 7 0 0  00  56  I =1  ,A  YEAR 

55?  jO  00  5 u  J  =  1  ,  i  TO 

5590C  CC  5 C  K=1 ,9 

56000  50  HORN (T  , J. K )=F L 0 A  I ( 6  I LL E I (1 , J.K ) ) 

56160  C 

5o?0C  C  MULTIPLY  RATINGS  BY  USER  FRACTION 

5650C  IF  (NFFAC.LI.l)  GO  TO  109 

56 46 C  DC  7 C  L= 1  , NF RAC 

56600  IF  (PE .EU. IFRAC(L  ,111)  )  GO  TO  90 

56660  70  COKTIKUE 

5670C  GO  TC  IOC 

56930  80  00  9C  1  =  1. MYLAR 

5o9..C  00  9o  J=1»11J 

5706C  00  70  R=1.9 

57100  50  NORIUI ,J.K  )*MORK(I .J.K  )*UFRAC(L» J) 

57260  100  CONTINUE 

5  7  TOC  C 
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cuppuit  MAinx  nut  aujust t.*  ht  iht  napm 


5/5jC 
VdO  C 
,  '?jn 
t/AOL 
Arvoo 
JOOC 
n  lai 
n?uc 

-i  *  i  o  ■: 

•-  'At? 

j  c  s  jo 
5P  7  00 
57Jui 

5  i  7  3  C 
:  ;o«jr 
■•  >  1  :• .. 
s  >  <  3  ■: 
*i  m  r, 
o  */.(  i 
S/b^C 

3  j  *  o  c 

3  >'/  <)! 

:  .  •  o  c 

59  7  00 

A  j  r.  j  * 
c  .'  1  0  0 

6  C  7  w  0 
e  .M  0  2 
E  }  4  C  0 
f  :5«c 

5  J  >uC 
V  7*7 

6  v  B  0  C 
£  1  TuC 

.1  ooc 

t>  1  IOC 
M  ?Jf 
-.  1  5;  • 

7  4  A  t  C 

£ l->c 
f.  1  5  uft 
e » 7  o  f 
5  i.  0  0  C 
•>1  Ac? 
c  j  ;  j  t. 

j  •:  t  *  c 
>  t  c.  c 

S240C 
f  cSC- 
b  760C 
<-:7C' 
t  2  "  0  0 
5.’ ‘>1,0 
1 1 C  W  c 
k  1 1  0  0 
b  j  >  0  f 
i  s’.or 
i  5  9  0 
>.  3  5  0  ‘ 
Uf.00 
•.ir.i 


C  ADD  tULLETS  FOR  THIS  PE  TO  ALL  NAVY  MATRIX 

If  ( ICOMP.EO.l)  CC  TO  1  AO 
DO  110  I=l»KYEAfi 
DO  110  J=  MIC 
DO  no  K  =  1  .<! 

in  Q  M  M  I  *J  .K  )  =  CMN !  I  »  J » l!  )*WORK!T.J.K  ) 

C 

C  WRITE  CUTPUT  TAPE 

DC  IS*'  1=  1  »KY£AP 

TOTAL!  I  1=0.0 
00  120  J=  1  .11C 
DO  12  0  K=  1.5 
SAVE  (J  .«  >=WCR*<  I  .J  .  K  ) 

1  ?C  TQTALCI  )=  T  C  T  AL  !  I  )*SAVECJ»K) 

IF  (lOISK.EC.l >  WRITE! 355  PE. I. SAVE 
ilj  CONTINUE 

C  PRIM  YEARLY  TOTALS  FOR  THIS  PE 

IF  TIPRNT.EC.l)  CALL  PRINT  (3) 

RE  TURN 
C 

C  MAfPIX  A0JUS1EU  UY  N  APR  RETIREMENTS  8  E  I  NO  CORPUTEDA 

C 

C  SUR  BILLET  REQUIREMENTS  dY  YEAR 

ISO  00  1  50  TM.KYEAP 
0  TOTAL!  I  >-C  .0 
DC  150  J=  1.110 
DO  150  i(=1.5 

ISO  B  T  C  T  AL  t I  )  =  BTCTAL!I  )»MORK!I.J.K> 

c 

C  CHECK  FCR  7ERC  QUALITY  RATRICES  IN  EACH  YEAR 

I  =  J 
J  =  J 

UO  151  XM.KYEAP 
L  =  K  Y  t  AM  *  1-K 

IF  IfiTCTALTLKLE.O.  1  GO  TO  151 
I  -L 
J=  1 

131  CONTINUE 

IF  IJ.LC.KYCAR)  CC  TO  162 
IF  ! I .LU.u 1  GO  TO  162 
C 

C  A  7E-C  MATRIX  HAS  OEEN  FOUND 

IF  !  BTliTAL!  ll.LF  .0.  .  ANC.8T0TALIKYE  AP  I.CT.D.  )  GO  TO  154 
IF  ! ft  TOTAL!  1  )  .LE  -AMD. BTU TALCS  TEAR  l.LE.O.  )  GO  TO  157 
C 

C  REPLACE  IT  WITH  A  ,<GN7EPU  )NE  FPOM  A  PREVIOUS  YEAR 

CC  155  I  -2  »X  YEA  P 
IF  ! t TOTAL!  I  I.GT.p.  )  GO  TO  153 
dTOTAL! I  )=dTOTAL ! I  - 1  > 

DO  152  JO.I15 
DO  152  5=1.5 

152  taORiUl  .  J»M  =  WORIT!  1-1  .J.N  > 

153  CONTINUE 
GO  TO  162 

C 

C  REPLACE  IT  WITH  A  NCN7ER0  ONE  FROM  A  LATER  YEAR 

154  DO  156  IM.KYEAP-1 
J  =  lTYEAR-I 

IF  ! STQTALCJI.CT.D. )  GO  TO  156 
eTCT4L!J)  =  M(.TAL<JAl  ) 

30  1  55  K *  1 .  1 1 0 
GC  135  L=  1  »*> 
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- — 


<  t  <  u  1 


na  NIIRMJ.N.L  )  -  klUl MJM.K.l  ) 


bJVt  1 

( 4non 

6  4  1  0  * 

64?u  ' 

e  4  3  o  c 

6  44  0*' 
64*5  C/i' 

a  4  60  C 

6470C 
6  ♦  6  Gr 
(410C 
65000 
6  5  1  o<" 

tj’u1 

65SGC 
6  5  40'' 
£55  0  0 
6560  1 
6  5  7CC 
6>°0f' 
6  5  90" 
6  6  0  0  C 
66 1  0  C 
6o?C.r 
>6  50  C 
6640C 
6  45  c') 
6660'' 
S670C 

6  3  2  4  0 

669uC 
67000 
67  1C 
c/aac 
6 7  JO 0 
674C0 
6  75u  0 
67600 
6  7  700 
S7  6  :o 
£  7  9  0  C 
66  00  0 
SO  !41 
eazoc 
63  JOO 
6*4^ 


c 

c 

c 


c 

c 


c 


c 

c 


c 

c 

c 


156  CONTINUE 
CC  TO  162 

00  T  H  THE  URST  4N0  THE  LAST  YEAP  HAVE  7ER0  MARICES  - 
REPLACE  THEM  With  ORE  FPOM  A  MIDDLE  YEAR 

157  J=I-1 

DO  159  K=  1 ,J 
L=I-N 

If  (UTOTALOL  l.GT.O.  )  CD  TO  159 
d  TOTAL  (L  1=BT0TAL(L*1  ) 

DO  156  1  .  1 1  C 

DO  156  N=l,5 

156  WORK  OL  .  w  ,M=NCflK(L*  l.M.N  1 

159  CONTINUE 
1*1*1 

00  161  J=  I ,  N  YF  A  P 
IF  (bTOTAL(J).GT.O.  >  CO  TO  161 
H  TOTAL  (  J  >  -  0  T  C  TAL  (  J*  1  ) 

DC  tbu  K-l.lli 
00  160  L  =  1  »  9 

160  NCR* (J .K .L  >*W0RK t J-l .6 .L  ) 

161  CONTINUE 

FIND  CORRESPONDING  PE  IN  THE  N  ARM  ARRAY 

162  IN=NSrAAX<NAPr< l  l.NCPF.PE  1 
IF  <  I  N.  9E.C  1  GO  TO  1 b  6 

IF  NOT  F  C  L  h  D  ,  WRITE  EARNING  MESSAGE 
WRITE  16.210  PE 
RETURN 

CCNVERT  ThE  A  PL  H  PE  IN  "PE"  TU  A  NUMERIC  ONE  IN  -IPE" 

166  A ( 11*60 

CALL  WDVL  (PED.6  » A .  I  »  l  I 
«( 1 ) = 1H  2 

IF  (  »(  1  )  .Efi.lHM)  B  (  1  )=  1H  1 
CALL  P C  V£  (PEC.  t  .  IPf  D.  1.5  1 
call  move  cb.i. ipeo.6. n 
.  READ  (TPED.167)  TPF 

167  FORMAT  (16) 

SCALE  THE  BILLFT  QU AL  ITT  MATRIX  TG  THE  NAKM  TOTAL 
FC»  YEARS  1-5.  ANO  WFITE  MATRIX  ON  TAPE 
00  ie:  Is  l.KYEAF 
TCIALU  Y- 0  .  r 
NSCALE( T  )  =  C  .  C 

IF  <  BTOTAL  U  I.GT.P  .O  N  SC  AL  Efl  >*F  LO  A  T(  N  ABM  (  T  » IN  )  i/i  TOT  ALC I  1 


63500 
6  3  6  C*  C 
6d  7^0 
6  2  PJ  0 
66900 
693C0 
6  91  01 
6)200 
69K1 
6  9  4  0  C 
69500 
696C0 
697UC 
69630 
4V9uC 
70C3C 
7:iao 


00  1  70  J=  1,11(1 
00  170  5=1.9 

SAVE  (J  »K  1  =  WCRKU  »J.K)»NSCALE(I  > 

ORNU  .  J  .K  )=CMN{  J.J.*  )*  SA  VE  ( J.K  1 
170  TOTALCI  l-TCTALd  >«SAVE(J,K) 

IF  (IOISR.EC.il  HFITEU01  IPE. 1. SAVE 
160  CONTINUE 
C 

C  SCALE  THE  BILLET  QUALITY  MATRIX  Til  THE  NAHM  TOTAL 

C  f OF  YEAR  6.  USE  THE  DUALITY  OF  YEAR  5. 

C  AND  WFITL  THE  MATRIX  ON  TAPE 

1=6 

TCIALU  >*C.O 
NSCALEU  1  =  0.0 

IF  (BTUTAKKYl  AP1.GT.3  .0  1  N  SC  ALE  1 1  Will  A  T(  N  Al<  H<  T  .  TN  )  )/ 
•  BTOTAL(KYEAR) 

on  i so  j* i . no 


_ 
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t :  n 
7C4WC 
,50C 
7  'SL.' 
7  ,7  jC 
7  3 » 0  0 
7 ;  K- 

71  roc 

7110C 
7  12U 
7  15  0  0 
7 1  »uC 
00' 
oO  C 
7  0  ■.' 


0  il  1  iv  1  »’. 

SWCU.KHKOMimAR.J.KHNSCALEd  ) 
flPMI.J.wF-CPNfJ.J.KMSAVEtJ.K) 
l?0  IOML(  I  HTCTAllI  )«SAVE(J»K) 

If  ( JOISrt.CC.l)  WPJTCCJO)  |P£«I>SAVE 

01  SPLAY  THE  TOTALS 
IF  (IPRM.EC.l)  CALL  PFINT  (1) 

AMPEdN  )=  I  £  IK 
RETURN 

clC  FCpMAT  (/ICX.71HTHLFE  15  AC  ENTRY  IN  THE  FILE  OF  AARM  PEOUIREMEATS 
*  CUPRESPCAOING  TO  PE  .Ab.lh.) 

END 


7 1  5LC 
7  2  Hf 
7  3  L  C  f. 
?  >2v.F. 

72  330 
7  2  40  0 
7  2501 
7  2  E  0  C 
7  2  70  0 
7  2 ioO 
7  2  9  0  C 
7  jOOC 
7  4  IGC 
7  S?uC 
7  5  5oC 
7  3  4J0 
73SUC 
7  3  o  C  C 
7  47  0  * 
7  3  ?  0  0 
7  5  7o  0 
749.,' 
7  410  4 
7  ♦  ’o' 
/  -  30  0 
7  4  4  04 
7  4SliC 
7  G  0  C 
?..  7/ 
7  4  2  o  C 
7  ■*  v  C  C 
7  j'.C' 
7  0100 
7  3200 
7  5  3  OF 
7  jAoC 
7SS0C 


SUdPOUTfNE  PFINT  C.NPF) 

THIS  ROUTINE  PRINTS  THE  FOLLOWING  MATRICES: 

1  NAHM  SCALEO  T0TAL5  EOF  EACH  PE 

2  NAFF  SCALEO  OUAIITY  PIX  PAT^IX  FOP  ALL  NAVY. 

3  BIU-tT  PlCI/I  Sfrtf.VTS  TCTAL5  FOR  EACH  PE 

4  GTLLET  FECLIFEPE.'.Ti  EOF  ALL  JAVY. 

COWMON  7  f l /  KYEAF.  ICUMP.  IPPNT.  IOISK,  NYEAF 
CCMMON  /IS/  PL.  3ILLE  T(5  •  l  11  »  7  ) »  OHN(s.UMC) 

CCRPCA  lilt  TCr«L(6) 

COMMON  /FATING/  IFATE(llC).  JRATEUH).  I3LK 

*  MATRIX  1  A  710  3 

IF  (NPR.NE.l. AAO.APR.NE. 3)  GO  TO  10 
WRITE  CS.i’v.)  PE.(TCTAL<Il.T-t»S  1 
PE  TUFA 

MATRIX  Z  ANO  4 

10  IE  f AFR.AE.2.AN0.NPP.NE.4  )  RETURN 
00  20  I  =  l »  b 
IYP-NYEAR*  1  • 1 
WFITE  (  6  »  SC  )  1 Y  R 
IE  (NPr.EG.2)  WRITE  (6. IOC) 

IF  (AFh.LS.4)  WRITE  03,1101 
WRITE  (6.120) 

WFITE  (b.120)  (lRATE(J)»JRATL(J)»(IMN<I»J»K),K-l.t0)»J-l,110) 

WRITE  (6.  HO)  (OPNO.l  tl.J),J=l.  15  I 
20  CCNTIAUE 
RETURN 

80  ECRMAT  ('jX  ,A(.  .5X»  7E  12. 0/ i 

9 j  FORMAT  (  IRI//57.  X.3  4HREOUREMENTS  FOP  ALL  NAVY  IN  YEAH  .T4.1H.) 

13C  FCRMAT  (1Hu.4  3X.49H(8TLLET  FEQilT  REM  f  N  T  S  SCALEO  8Y  NARN  REOOlfiEMENT 
•S  )  ) 

UU  i  CRMAT  (1K.S4X,21H(0ILLIT  PEO'JI  REM  Eh  T  S  I  > 

120  FORMAT  (  1HC  .blX  .«HP  AYG  RAUF. .  4SX.GHW  ATI  NG/'/X .  6HR  A  TI NG  .  S  K.  7X.3HE~V.7X 
*.  SHE  -?  .7X  .JHt-7  .7  X,  JHt-6  .7  X  .  SHE- j  ,  7  X  .  3  HE~4 . 7  X  .  3HC  ~  J  .  7  X.  3HE~2.7X.3H 
•E-1.5X.5HT0TAL/ ) 

130  FORMAT  (7X,A3,1X,A4,5X»10F10.0) 

1 4j  FORMAT  (7X  ,PHPA  YGRADE/ lOX.'iHTOT  AL.S  X.  IuFIO.C  ) 

EAC 


SlldRCUTlNE  FEAFANdCOMP.KYEAP  ) 
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1->70C 
7saci 
r>  1 9o  c 

77000 
77  Id 
7/20C 
?7  500 
7  ’ADC 
7  750C 
7/ 6u0 
7/700 
?/BoC 
77>0C 
720C0 
7 1  IC- 
7“2JC 
7  B  SCO 
7  H  AOC 
7  f  ^>0  0 
7B60C 
7-7C.C 
reaoc 
?a  >oo 

7  <"  c  ; 

7 ;  i  o  c 

7  7200 
7  V  JOG 
>>40c 
?O0C 
796U 
7  *  7  C  C 
79PU9 
7  yyc: 
•7000 

a  site 

a:  'cc 
a*3cc 
f  cucc 

s  j5(.; 
?  C  6  C  6 
ac7vr 
a  :*cc 
e  jyco 
ft  5CG 
filcC 
?  12  00 
ft  3DC 

euoc 
e  lioo 
f  1  60C 
S 1  7  0  C 
f  l»0' 
ft  700 
•“  2'^  Oil 
r  i\iu 
tzzoc 
ezjoo 
pzaoc 

“2500 
?  »6w9 

f  aroc 

f  29uC 
3a7c'' 


c 

C  THIS  ROUTINE  REFORMATES  THE  OUTPUT  FROM  AN  (PE  THEN  TEAR) 

C  TO  A  (TEAR  THEN  PET  FORMAT 

C 

CCMMGN  711/  RE  0 ( 1 1 9. 9  ) 

COMMON  / 17/  TOTAL(a) 

C 

C  INITIALIZE  VAPlAUt.CS 

lfi  =  0 

00  1C  1=1.6 
U  TOTAL!  I  )=  0  *0 
C 

C  PE  AD  THE  FIPST  TAPE 

C  WRITE  LACY-  MATRIX  ON  THE  CIS*  COR P ESP ONO I  MO  TO  ITS  TEAP 

20  I  R  =  1 R ♦  1 

RE  AO  (3)  .EN0=4.' .ERR  =  2?  .CMA=22.P£SULtS=lNO> 

•  I  PE  .iYR.rEC 
GO  TC  30 

22  WRI  TE<6  .  10GG  )  IP.1NC.IPE.IYR 
10  3  0  FCRMAT  (2IRCERP0R  FILE  3C  H ECORO , I  7. 1 3H  INDICATOR. 

•  A6.fi!  CATA.A6.I5I 
30  DO  35  K=  I .9 

35  TCIALCIYR  ^TCIALCIYR  MR£C(24»K) 

J  VP= 1  YH  «  <.C 

MRITE(JYR)  IPE.((FEC(J.KI.K*1.7|.J=1.110) 

GC  TC  20 
C 

C  DISPLAY  CHECK  NUMBERS'^ 

AO  DC  AS  1  =  1.6  •  '  v 

WP 1 1  £ ( o . 300 9  )  1 
3  0  9  v  FORMAT!  IHO/Ah  YEAR. IS) 

WRlTE(b»305C)  IDTAHI) 

3050  F0RM»T(5X.VF10.0) 

A 5  TOIALC  I  )=.  .0 
LOCK  30 

c 

C  READ  IK  CISK  FILES  BY  YEAR  AND  THEN  COPY  TO  OUTPUT  TAPE 

IEND=46 

IF  (ICuHP.EC.2)  IFNO=AO*KYE»R 
'  00  e 0  l  =  A  l.IENO 

L= I  *  AG 

■  -  R  E  Ti  T  60  I 

5C  READ  (I  .  E  f.  0  =  7  j)  IPE.  ((PCS!  J.K  >.X=  l.  9  ).  J=t  .1 1C  T 
HP ITE(*3 ,2000  )  I  PL  »L . ( (RtQ(J>K).K= l  .9). J= 1.1 10) 

200C  FCRMAT  !  ?I6 .990F6 . 1  ) 

00  56  J=1 .9 

5o  TOTALCL >=TtTAL(L)*RE0(2A.J) 

GO  TC  56 
70  IPE=S9VSVS 

WRITE  (A„.20G9>  IPE.L.REfi 
WP I T£( 6  »  SOGC  )  L 
WRITE(b.3050)  TOTALCL) 

80  CONTINUE 
LOCK  A 1 
LOCK  AO 
RETURN 
END 
C 

. . . . . . . 

c 

INTEGER  FUNCTION  NSCANX(M.L.I) 

C 

C  SEARCH  THE  FIRST  L  ELEMENTS  OF  APRAY  M  FOP  THE  FI F  ST  OCCUPANCE  OF  I 
CIMENSICN  R ( 1 ) 
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Routine  TOTAL,  main 


CALL  COMPUT  TO  CREATE 
A  TOTAL  REQUIREMENTS 
MATRIX  FOR  THE  LAST  PE 
AND  FOR  EACH  PE  USING 
ITS  QUALITY 


CALL  COMPUT  TO  CREATE 
A  TOTAL  REQUIREMENTS 
MATRIX  FOR  THE  LAST  PE 


I  DISPLAY  THE  SUM  OF  ALL 
TOTAL  REQUIREMENTS 
MATRICES  FOR  EACH  VEAR 


DISPLAY  A  WARNING  MESS 
AGE  FOR  EACH  NARM  PE 
CODE  WHICH  DID  HAVE  A 
QUALITY  MATRIX 


CALL  REARAN  TO  REFOR 
MATE  OUTPUT  FILE  FROM 
A  PE  BY  YEAR  ORDER  TO  A 
YEAR  BY  PE  ONE 


Subroutine  INPUT 


Subroutine  NARMRD 


Subroutine  COMPUT 


Efi.lEP/l'LAN  ICK/CllJF  Ido/?  1/25) 


i 


101 
231 
101 
4G1 
*>0) 
6  >0 
2J1 
000 
*00 
100) 
111)) 
1  200 
mo 

1400 
150  0 
16J  ) 
i  rji 
1  5)0 

1  »oo 
200  ) 
2100 
22  00 

2  5)1 
240) 
250  0 
2631 
2  2  0) 
2501 
2  <0  ) 
00)) 
510) 
5201 
550) 
54)1 
55  00 
5  401 
5  211 
5  5)0 
50)0 
4000 
410) 
4  20  > 
4  530 
4  4  0.1 
<■  50  ) 
4430 
42)1 

4  50  ) 
4)01 
J  033 
5130 
5200 

5  5)0 

3  4.)  ) 
353) 
>6  33 
3231 
3500 
3*00 
o  101 
ol31 


IRESET  THEE 
lit  I  4UI.11UN1) 

J31S0  -  F II ON  CNA/1132* 

f  I  EE  It  M  ILE -"OCT/ 'N  ATT/ SHIP /AC  I  ".KINO*  U  l$K.  FI  IF.  TYPE*  8) 
rilr  2(1  niE-"0(.T2  2.3MH/  *IR2  ACT-.KI10  =  0ISK.F  ILCI  YPF  =  5  > 

Flir  51  I  I ILE- TNREP/  4L1-.K  lN0*Pr I  APE .F l LC T Y PE  * « . SER 1 »L 30 *6 2 1  ) 

FILE  4(51.30*01  Sl»  .MAXRECS  I/E*  *')*  .RL  0C5SI  /T**  )*.  ART  ASl  ZEM  1  > 

FILE  5(IirLL=*FNREP/PLANNCR2QATAP,'»FILEIYPf*8.5IN0*dIS5) 

FILE  4(1  lILE  =  "E'iRCPZSUPP3Rt/1UAL  1 1  Y"  .  A 1  31  =  PE  14  PE  .F  t  L  E  I YPE*  t  .  SERI  AL.NG* 

•  3  52) 

FILE  *(  f  I  Il£=*ENhCPZClCT/SHlP-.lWND=DISK.F ILEIYPF*5) 

FILE  1  0(  11  tLE**CN(EP20lCI/»IR”.P  1 30=01  $ X.F l LE  I YPE =8) 

FILE  1  I ( Tl TLr*"ENRE®/FI X E 3 RF 0 " . Kl 30 =  PE  T 4  PE . T ( LE T Y>f  =  5 .SCR  I 5L NO  =  6*3 ) 
FILE  1  2(Ki3i)  =  Ul35*MAXKFCSlZ£  =  4.HL0C5SI  ZE=  52) 

FILE  l 5(Kl 30 *u l iX.HAXKEC Si ZE=4.ULUC5 SI ZE* 52) 

FILE  l4(Kl31)ipEI4‘'r»R4Xi:ECSIZE***l.i)LJCXSI2E  =  **l.SEtI  AL  31*55*. 

•  TITLE  ="sC“A I C H p -  ) 

FILE  15(KIN.0*aiSK.RAXRFCSlZC**9  i.AREASI  ZC=10> 

FILE  1 4( MN3  =  JISK.NAXkECSI 2f  =  )*2.  ILJC5SI 2E  =  **2.ARE ASt2E  =  l 0  ) 

FILE  I  8(  II  TLE*l,fNL/lNVr3/rPBZH”»5IUJ*Pf  TAPE.  FILE  T  rPE=  « .  5  E  H  l  A  L  30  =  52  5  ) 
FILE  20(  TITLE  ="LMREP  21  1 3  AL  NT  1 "  .  M  AX»E  C  S I  ZE=*»  2.  dL  OCX  S  l  ZE  *  )*2.  SERI  ALNJ* 

•  2  56.M  4C=PE  TAPE  ) 

FILE  2l<  Tl TLF  =  "rN  1FP/PL  ANNFR 2 i T  A  I S*. FI L E  TYPE  =B »K 1 30=0  I S5  > 

FILE  22(  Tl  Tl  t  =  "E  MCE  ft*  Tu"HE  T  *  .5  I  Nil*  J  I  S*  ,  MA  XR  ECS  I  ZE*  l  2.  )L  1C 5S  1 2 E=  56  3. 

•  PRJTECT  IJN*SAVf  1) 


C 

C 

c 

c 

c 

c 

c 

c 

t 

c 

c 

c 

c 

c 

c 

c 

«■ 

c 

c 

c 

L 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


LNKEP  PROJECTION  K10EL  -  PLANNER 

COMPUTES  ENLISTED  REa Ul RE  HE  3 T S  U*  RATING  »3D  PAYGRAOE 
JR  ar  RATING  AID  LENGTH  OF  SERVICC  (LOS) 


INPUTS 

1  -  IUSF 

2  -  IUAF 
5  -  I  OUR  1 


S  * 

4  - 

5  -  IU50 

»  -  I  USD 
(0  -  I  U AD 
tl  -  IURO 


18  -  UUN 

21  -  lUOt 

STURAGE 

4  -  IUJR2 

12  -  IURSF 

15  -  I  U  (  AF 
14  -  1 U) R 

13  -  I  UR  A 

16  -  IUEPA 


OUTPUT 


SHIP  F.)»CcS  rtY  ACT/°£/PU  (FORCCS) 

A/C  rO-TCES  HY  ACT/PE/PU  (FORCES) 

SHI"  A  VO  A/C  UIIJ  RE)U1R£“ENIS  )Y 

RATING/"  AYGP  A  i)E  FDR  EACH  ACI/2C/PU. 

YEARS  1-5.  (FACTORS) 

USER'S  INPUT 
PR  I  NTER 

SUPPORT  DUALITY  M*IR(Y  FOR  EACH  FORCE  SUPP1RT  PE 
RY  RATING  AND  PAYJRADE.  YEARS  1-5.  (SUPPORT) 
SHIP  DIC  I  I113AR1  E  S  RY  »CI/Pc/2u 
AIR  DICT  IHNARlr$  3Y  ACT/Pr/DU 
FIXF3  REQUIREMENTS  RY  R A  I  1 3G/P A Y GR AQE  FOR  EACH 
°r.  YE  A ( S  l - u .  (“lANNER)  -  IF  P  RDJECT 1 13  HOJE 
TOTAL  R  r  0  U  I  RE  HE  3  I  S  RY  R  A  I  I  Rf./P  A  YGR  ADC  FIR  EACH 
PC.  YEARS  1-4,  (TOTAL)  -  IF  I3°UT  HOOE 
ACTUAL  ENLISTED  INVENTORY  BY  <  A  T  1 .5  5 /PA  YGR  A3E/L  0  S 
(PERS2X) 

IF  RRJJECI ION  HOOE  -  jTATISTICS  COHPUTEO  «ITH  THE 
FIXED  RTRUIREHEMS 

SHIP  AND  A/C  UNIT  RDU I  RCMCNf  S 

RAT I3G/PAYGRA0E  FUR  EACH  ACT/PE/PU.  YEARS  4-16 
REF03  “A  T  F.O  SHIP  FORCES 
KEF  )lt  M  A  T  E  0  A/C  FURCC5 
VARIABLE  requinchcnts  jy  PE 
FORCE  RETIREMENTS  BY  PE  RANUOH  ACESS 
SUPPORT  qualitative  REQUIREMENTS  for  the  era 
YEARS  (6- t 6 ) 

ALSO  FIXEO  RE  OUT  RENEW  T  S  FOR  THE  EPA  YFARS 
(  2- 16  ) 


S2J3  C 

6100  C 

b  I..)-)  C 

bSUJ  C 

obi)  C 

6/UO  C 

olJO  C 

o9J0  C 

roi )  c 

7190 

72  JJ 
7100 
74  30 
f  50  9 
76  JJ 
mi 
/8j  a 
ll  JO 

-mo 

<5 1  30 
d2J9 
3133 
•J40) 

35  JO 
86  JO 
a/jo 
aau 

3  9jo 
JOOO 
/1J) 

■jcjo 

/J09 

J4in 

ysjo 

/bOO 
/7  jj 
9iJ) 

/  > 00 
1  0)00 
1  0100 
l  J?  JO 
1  J  JOO 
tU4J'l 
1  j5j) 
lobO) 
lor  >9 
l  J  30  i 

I  J  »J0 

I I  00  ) 

11  too 

11239 
1  l  100 

I  l*.  JO 
1130) 

I I  bOO 
117  JO 
11300 
I  1  90) 

123J1 

121  O') 

122  >0 
12300 
12400 
12300 


zo  -  iuuut  -  all  nayy  rcouinfmfnts  ar  pe  -  if  projection  roje 

-  I  1 X CM  RFOUIRENEN TS  3Y  PC  -  IF  INPUT  NtlOE 
21  -  I UiT  -  IF  INPUT  HOOE  -  STATISTICS  CUMPUIEO  FOR  USE  IN  A 
PRUJFCTION  NIUE 

-  IF  PROJECTION  HOOF  -  INPUT  REQUIREMENTS  FOR 
PROP  MET 

22-  I  UPH  -  IF  PHOJCCTION  NOOE  -  OUTPUT  10  PROPHET  - 

nEJUIRCNENIS  J 1  it  A  r  I  N  0  FUR  THE  FIRST  7  YEARS 

CO-NON  /  A 1  /  SUP  PURI  5 )  *  IND#  I  YR  #  FUR.  ILOS.  NYEAR. 

•  NACA.  NPf  4 (60 1 »  NPUA(60.10). 

•  NACS.  NPESInO).  NPUS(nO.lj). 

•  F0RCE(69#10# 10).  IDACT(bO).  I JPE (bO.l 0 )»  I  DP U < 60, l 0. 18 > 
COMMON  /*<./  NUS#  NUSPCC10.il).  NUSPXCIO.F).  VPCUSC10),  CURNT(T.lb) 
CO  IRON  /IQ/  SHIP.  AIR.  AIL.  FIX 

COMMON  /IA/  PEC00EC1QC).  LOCPE(IOO),  NJ.  MAXPE 
COMMON  /SC/  UATECIIJ).  JRATE(UO) 

COMMON  /1G/  YSP  T(  9‘3 ) .  KEr<95>.  NVPf 
COMMON  /IE /  NA,NE(>.3> 

COMMON  /FILES/  IJSF.IUAF.IUUtl.IUUR2.IUS3. 

•  IUSJ.I UAD. I  UN J.I UtSF.IU  !  AF. IUVR. I  JR A. 

•  I  liEP  A.  I  UOUT.  IUST.IUIN.IUPH.IBY 
INTEGER  SHIP.  AIR.  ALL.  FIX 

DATA  JRATF/4H013J#4H015Q#4H020J#4HO?50#4H0300#4HJJ59#4H0430#4H3401 

•  #4HJ4<14.4M345)#4H95OO.4M0bOiJ#4H9h0l»4HO6  9Z.4HJ8J4#4R0R00#4H18Jl 

•  .4H0802. AH0d0i.4H08l0.4H090O.MH IC00.4U1001.4H1002.4H1010.4H1030 

•  »4Hl 100#  4H1 200#4M1400.4H150J.4HI 611. 4H1622#  4H16J1.4II16  44. 4H1 655 

•  »4HlSbb.4Hl/0O.4Hl7ul.4Hl750»4Hl3')O.4UlJ0J.4H200O.4M2lOO,4M2?09 

•  .4HOSOO. 4H229J. 4H2  300. 4H’4  »J .4H2AJO. 4H2/00.4H  II09.4H  329J.4HJ  JOO 

•  #4M17J0.4MJ890.4H59u0.4h40UO#4H4C20#4H410j.4H42j9#4H4300.4H4S30 

•  »4h4  730.  4H4400.  4H30J0.  4HS  l  O'J  #  4M  5  TOO.  4H5I89#4H5419,4HS50J#4R5600 

•  #4M5  7U0#  4H5800#4H6  030.  4H6 18U.4H62 )9, 4H62  05.4H»2  j6#4Hf.l99.4H5  110 

•  .4Hb4  J0.4HaS33.4HbS20.4Hbb00.4Ho  700.  4H6  70  4  #4  H6  705 . 4H  67  0.‘>#  4  H6  600 

•  .4Ho9JC.  4H69Ol.4Hb9J2.4H6/3J.4H/000.  4H7  1 0  J#  V  H72J9 # 4li  7 10  J , 4)17500 

•  »4H7501#4H7502#4M75J1»4H74  00#4H7S')0»4H770J#4H30i)3#4H8J93#4H1600 

•  #495000# 4U6J00.4M7800/ 

DATA  I  it  A  Tr/  JH  H  »  JiiM  A  #3:0.8  .3hSM  .JHOS  .  J),'A  .  3HST  .  US  T  3.  VIS  Y  S* 

«  SHOT  .JHTM  .  JHGM  .  JHGMM.  l.IGN  T  .  JHGNG#  JH  F  T  .  SUr | j  ,  3IFTR.  J-1rfw* 

•  JftMT  »  JHMN  .  JHE  f  #  JHff  N.  3HFT9,  JHOS  .3)IPI  .  JHtM  .IRON  .  1HNC  . 

•  1HRM  .  1HCIT.  3HCH.  JHCTM,  3HCI0.  3HCT1.  3HCT  t .  JHYI  .  3HCYN.  1RLN  . 

•  JH  P  N  .HOP  .  J.ISrt  #  3U0K  .  IRMj  .JHSJ  .  3HCS  .  JHli  #  JR  S  R  .3RD  . 

•  J|PC  .JlILl  #  HOM  .  JH“U  .  JHMH  .  JHE  N  .  IHMR  .JH'D  .SHOP  .  JUFM  . 

•  JHIC  .  JHH I  .  JHPM  .  JHML  .  JUGS  .  JHCU  .  JHE  A  .  JHCE  .JhEJ  .3RFJ  , 

•  JH  CM  #  3H1 U  .  JH  SU  .3HUT  .  IH  AF  .JHAV  .JHAJ  ,  JH  A  J  J  .  SR  AO  J .  J  R  A  r  . 

•  JH  AX  »  JH  A  «'  .JHAJ  .JUAO  .  JH  AC  .JHAJ  .  JR  A  R<*  ,  J  H  A  OF  .  JH  A  J  M.  JR  A£  . 

•  SHAM  .JHAMS.JiRAMH.JHANt.lHPR  .SHAG  .  JRTU  .JHAlJ  .IRAS  .  SRA  $E» 

•  JHASH.  JHASN.  J.OZ  .  3H?H  .JHPT  .  J.RHN  .JHOT  .  IHSN  .  JHTN  .JRCN  . 

•  JHAN  / 

JAIA  V  SP  T /  246112.  246122.  2461  12.  246142.  2461  52.  >46162.  2461  72. 

•  246182.  7232/2.  241562.  242622.  246112.  867212.  847412. 

•  847422#  847112.  d47222.  347112,  847512.  847522.  3579,2,  867612. 

•  89/112. 

•  8  7/1  12.  877142.  8171  12.  dl7U2.  887212.  887122. 

•  112222.  112282.  241122.  242412.  242022.  242912.  242922,  242912, 

•  242942,  242952.  242962.  242972#  421ld2#  244112#  244122#  241412, 

•  244512.  244522#  245612#  655012#  847412#  241022#  020022#  242812# 

•  3411 22#  112212#  521782#  521662#  521592.  523592# 

•  1 1 3152,  241 342,  241152.  241422.  241442.  241462.  241512.  241522. 

•  241512.  241542,  241562.  242122,  242132.  242142,  242422, 

•  242412,  242442,  242512,  241012.  244532.  151122.  351112. 

•  523112#  523132#  523162#  523172.  523242#  5212 52.  523262#  523322. 

•  623132#  523412#  52J712#  523792.  847432#  241362/ 

DATA  KEY  /  1#  l.  1#  1#  1#  1#  1.  1#  1. 

•  2#  2#  2#  2#  2#  2#  2.  2#  2#  2*  2#  2#  2#  2* 
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12600 

• 

1.  1 

12/00 

« 

4.  4 

12500 

* 

5.  5 

12)07 

* 

6.  0 

6.  6 . 

6.  6 .  6.  b. 

6.  6.  6. 

b.  6 ,  b »  6, 

6  » 

6, 

b  » 

1  190  ) 

* 

6.  6 

6.  6. 

6.  6.  6.  b. 

6.  6 .  6 . 

5  » 

moo 

• 

F.  F 

F.  F. 

F.  F.  F.  F. 

F.  /.  F. 

F.  F.  F.  F, 

F  » 

F, 

F. 

li’oo 

* 

F.  F 

F.  /. 

F,  F,  F.  F, 

F.  F.  F, 

F.  F.  F,  7. 

F. 

F. 

FF 

l  5100 

DATA 

( NA  ME(  l.N) 

N=l. J) 

/ 6 Hil  A  SE  0. 

6HPS  SUP. 

4HP0RTF 

11400 

DATA 

(NA‘1E(?»N) 

N=  1 .  3  ) 

/6HTRATNI. 

6HN5  SUP, 

4  HP  OR  IF 

1 15o0 

DATA 

(  N A M F (  3.  N  ) 

N  =  1  .  J  ) 

/6HNE0ICA. 

b  HL  SUPP. 

1H0R  TF 

11509 

DATA 

(NARE(A.N) 

N  =  l  ,  1  ) 

/ 6 H R FC  RUl  . 

nHTE  ♦  E . 

6HX4HINFF 

1  1/00 

DAI  A 

(NAME(5.N) 

N=  l  •  5  ) 

F6HI NO  I V I . 

6H0UAL  S, 

6HUPP0RT/ 

11499 

DATA 

( .’•  A  ,1  E  {  f.N) 

H  =  1 . 1  ) 

F6HSHIP  F, 

5H  IRCES. 

1H  F 

11)09 

UUA 

(KAIF(F.N) 

N=  l  »  1  ) 

F6HA/C  FO. 

4HRCES.  IH  / 

U  909 

DATA 

(NANE( fl , N ) 

N=  1 . 1  ) 

/6HQN  ROA. 

2H.I0.  1H 

/ 

14100 

OAT  A 

(NANEO.N) 

N=  l  »  3  ) 

F6HALL  NA. 

2HYY.  1H 

F 

U209  DATA  SHIP/4HSH1PF,  AIRF3HAIH/.  ALL/3HALL/.  FIXFSHFIX/ 

UM1  C 

144 07  C  INITIALIZE  FILE  NUMBERS.  3A SC  YEAR.  4NJ 

U50)  C  A  A  X  NUMBER  OF  V4RU9LE  PE  COOES 

U6U1  I  USE  =  l 

1AFO 0  IUAF=2 

14100  IUUHl=i 

14)00  IUUK.'  =  4 

U003  IUSQ=U 

13100  1060=9 

1520)  l  J  A  9  =  1 Q 

15J00  I  J:<)  *  1 1 

15409  iursf=i? 

15590  l 07  AF=  1  3 

1)600  IUVR  = 1A 

1  5F0)  IU‘!A=15 

15  400  t  UE  P  4=  l  5 

15000  IUJUT=20 

16000  I  US  T  =  ? I 

UtO)  1  U’*  H=?2 

lb2o)  IUINM3 

I6J00  iar*i9F* 

1640)  MAXPE-100 

lo.vjO  >VPC=95 

l  On  1)0  C 

lb/99  C  READ  f HE  NUMBER  OF  Y E A  1 S  TO  00,  COLS :  1"? 

1  o 300  C  REAO  f HE  OPERATION  .NOUE,  COLS:  5-10 

IjOJI  C  "INPUT"  *  INPUT  MODE  -  C01PUTE  FIXE )  RE3. 

1 F 000  C  "PROICCT"  =  PR9JFCT10N  MODE  -  PROJECT  ALL  NAYY  HEO. 

IF10J  READ  (5.t30)  NYEAR.FIXR 

1F209  IF  (FIXR.E0.6HPROJEC)  F1X7=0 

1F100  IF  (FIXR.f O.SHtNPUT )  FIXR=l 

1/400  IF  (F IXR.NE.O. AN9.F  IXR.NE.l  )  FlXH=0 

1/500  IF  (FIXR.EO.O)  WRITE  Co. 140) 

IF  >09  IF  (FIXR.FO.l )  WRITE  (6.150) 

1/FOO  IF  (NYEAR.LE.O)  NYE  4.1=1 

1/30)  IF  (NYEAR.6T.16)  NY  EAR*  1 6 

1/ROO  WRITE  (6.I0C)  NYEAR 

1  300.)  C 

moo  c  hfao  the  user  inputs  and  overrides 

13200  IF  (FIXR.EO.O)  CALL  RDINPU 

Id  100  C 

1 3400  C  REAO  SHIP  ACT/PE/PU  DICTIONARY.  SHIP  FORCES.  AND 

13509  C  STORE  THE  ACT/PE/PU  COOES  AND  THEIR  FORCES 

1<(609  INO*$H!P 

1SFJ0  CALL  ROFORC 

1  3400  N  AC  S=  N4CA 

13)00  00  40  1  * l * N  ACS 
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190)  J 

191) 1 
1 92  JO 
19  JO} 
1  14)0 
1  950) 
i960) 

19  2)1 
1  9903 

1  9901 
20000 
20100 
20203 
201  JO 

20  4  00 

2  353} 
>0801 
20200 

209) 1) 
20)0) 

210) 1 
21100 
212)3 
211)0 

214) 3 

215) 3 

21  800 
21230 
211)3 
21  >00 
22000 
22100 
222)0 
221)0 
22400 
225)0 
22800 
22200 
22900 
229)0 
21003 
21100 
21200 
21  $0  3 
214)0 
215  31 
21600 
21200 
21101 
219)0 
240)0 
24  10) 
24200 
24  100 
2440) 
24501 
24630 
24200 
24900 
24900 
25000 
25101 
252)1 
25100 


NPCSd  MNPC*(l  1 
IMNPES(  t  ) 
un  43  Ml.K 

4)  NPJSt I.JMMPUAC I .  J 1 
Close  (  t  USO  »l)  l  SP  =  HE  l  P  1 
CLOSE  (I<JSP>UIiP>5CEP) 

hfwi.no  louse 
c 

c  read  4/ c  act/pe/pu  dictionary,  a/c  forccs.  ano 

c  store  iue  aci/pe/pu  cooes  ano  ih£ik  forccs 

I  Nil:  A  IN 
C All  R)F IRC 

ciose  i iuAo.oisp=Kee? i 

CLOSE  ( IUAF  ,)ISP:XIEP1 
HE  it  M3  IURAF 
C 

C  LOOP  ON  YEARS 

00  100  IY 9-1. NY  EAR 
WRITE  C  6 . 1 9  C )  IYR 
C 

C  ZENO  THE  PE  FILE  ARRAY  FOR  VARIABLE  ONES  STORE)  ON  RAN30R 

C  ACCESS  FILE  IURA 

ND:0 

00  63  Ml.NAXPE 
60  PECOJEl I  » =  0 
C 

C  ZERO  THE  SUPPORT  ARRAY 

00  2  3  MI. 5 

2)  supp.jnu  )=o.o 
C 

C  CONFUTE  SHIP  FORCE  MANPOWER 

INMSHIP 
00  93  Ml. SACS 
1MNPESC  I  1 
0  0  90  J  si . N 
N=NPUS( I. J) 

00  SO  K  = l . H 

HO  HEAD  (IURSF)  F  ORCE  (  I  .  J.  K 1 . 1 0  ACT  1 1 1  .  I  OPE<  I »  J  1.  IDPUU  .  J.K  1 
CALL  CPFORC 
C 

C  COMPUTE  A/c  FORCE  MANPOWER 

I N0  =  A I N 

DO  90  Ml.NACA 
N*NPEA( I  1 
00  90  J : 1 . N 
M=NPUA( I . J) 

DO  93  IM1.M 

90  READ  (IURAF)  FO RCF t  1  . J. K ) . 1 0  AC T C I  1 . I  OPE ( I . J 3. I )P U C I . J. K ) 

CALI  CPFORC 
C 

C  COMPUTE  VARIABLE  SUPPORT  MANPOWER 

CALI  Ci'SUPP 
C 

C  PRINT  V  All  I  A  RLE  REOUIRENENTS 

CALL  PRINT 
C 

C  ENO  OF  LOOP  ON  YEARS 

100  CONTINUE 
C 

C  RELEASE  FILES 

CLOSE  (IUUH2) 

CLOSE  (IURSF) 

CLOSE  (IURAF) 

REWIND  IUVR 
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L._ 


254J0 
255J) 
2S50J 
25/j> 
255)3 
2/9J  J 
2o0j0 

?oi  ao 

2o2oa 

2oJ/0 

2»  a  10 

21.50  ) 
2o6J0 
2o/j  o 

2oH)l 

26JJ0 

2/ojo 

?/ioj 

2/  2  JO 
2/  5  JO 
2/4)0 
2/5  JO 
2/ouO 
2//>j0 
2/  500 
2/OJO 

2  o  o  j  a 

2  6  1  J  1 
2  0  >0  ) 
29  100 
204  JJ 
215JJ 
2.15JJ 
2-J/iJO 
20  i  JO 
»00j0 
2/OJO 
2/IJO 
2/2  JO 
?WJJ 
2/4  J  J 
2/5  JO 
2/6)0 
2jr  )j 
29°  JO 
2  M  JO 
i  /0  JO 
JJIOO 
ii>2j0 
JJiOO 
i  0  4  3  ) 
iO  5  J  0 
3J5J1 
JO/OJ 
JO  5  )0 
JJ  JO  J 
JIOJO 
Jl  1  JO 
J 1 2  JO 
Jl  iJO 
Jl  4  JO 
Jl  500 
J 1 6  JO 
Jl  /  JO 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


c 

c 

c 


c 

c 


c 


c 

c 

c 


TEST  OPERATION  MJOE 
IF  CFIAR.EJ.l)  GU  10  120 

IF  PROJECTION  POOF  - 

COMPUTE  PERCENT 4GF  CM4NGES  RFTNCEN  THE  VARIARlLt IT  PROXIES 

IN  THE  RASE  CASE  ANO  IN  THIS  CASE 
IF  CNUS.GT.C)  CALL  CPPRXY 

IF  DESIRED.  COMPUTE  0 1  S  TR  l  JUTI  0 KS  FOR  TRANSLATING  OUALIT/  FROM 
RAT ING/PAYGRAOE  TO  RATING/LOG 
IF  (ILOS.EJ.OJ  CALL  IRFLOStt) 

COMPUTE  VARIABLE  REQUIREMENTS  FOR  PE  CODES  THE  USER  MADE 

VARIABLE  ANO  THEN  ADO  FIXED  REQUIREMENTS  TU  EACH  PE 
I  NO  =  ALL 
CALL  AOOFIX 

mlTE  OUTPUT  FOR  PROHPF  T  SYSTEM 
CALL  PROPtlll?) 

RELEASE  FILES 
CLOSE  ( I U VR ) 

LOCK  I  UR  U 
LOCK  IUOUT 
STOP 


IF  INPUT  MOOE  - 

COMPUTE  FIXED  REQUIREMENTS  FOR  EACH  PE  CODE 
120  I N J  =E  IX 

CALL  CPFIXR 

RELEASE  FILES 
CLOSE  (IUVR) 

LOCK  I  UK  J 
LOCK  IJOUI 
STOP 

IJO  FORMAT  (I2.2X.A6) 

1 A  J  FORMAT  ( 1HI /»<» "PROJECTION  RJN  OF  THE  PLANNER  500EL"  ) 

150  FORMAT  C1H1/6X. "PLANNER  HILL  COMPUTE  FIXED  REOUI REHFNTS" > 

160  FORMAT  CIM0.5X.4JHENLISTE0  REQUIRE  RENTS  HILL  RE  COMPUTED  FOR  .12.6 
•H  TEARS) 

I»0  FORMAT  ( / HI  YEAR  .IJ) 

CNO 


SUBRuUT INF  RO  INPU 

COMMON  /II/  l.J.K.L.M.  INO.  IYR.  FIXR.  ILOS.  NYEAR. 

•  RASTEIS115).  I  NP'J  T  (  6 )  . 

•  UPUATF1200. IS  ).  UPACTI2CI).  UPPEI20I).  UPPU1201 >»  YUP. 

•  lYRCd).  FORCE! 5  > 

COMMON  / 12/  NVFSC5.16).  0/FSC5.16).  FlXPCTClo) 

COMMON  /U/  OEuPJTI  IJO. 10).  IDF  U«*  . 

•  PFUPJ TC 50.9 )  .  LPFUPDC50.20.2).  NPFUP 
DIMENSION  IFUPOTl 100. 10).  JEJPUT(50,/) 

EQUIVALENCE  (DFUPOKD.IFUPOICl  )).  (PFUPJ  TC  1  >  .  JF  UP  JT  (  1 )  ) 

COMMJN  / IA/  NOS.  NU SP EC  1 0. 1  I  J .  VUSPXIIQ./).  VPCUSCIO).  CURNTC/.16) 
COMMON  /IE/  NAMCC  9. J) 

COMMON  /FILES/  IUSF.IUAF.IUURl.IUUK2.IUSJ. 

•  lUSD.IUAO.t'JRQ.lURSF.IUKAF  .IUVR.  I  UR  A. 

•  IUEPA. IUOUT. USl.lUIN.IUPH.I9T 


11  5JJ 


H9uo 
120J0 
I21U1 
122J9 
12IJ9 
12*0  1 
125  i) 
1260  J 
12^01 
12501 
12900 
1100) 
11101 
il’J) 
1110) 
11*  J1 
11509 
11609 
5 1 7  J9 
1 1 109 
HU) 
1*000 
1*10) 
l*2o  ) 

1*  too 
1**0  ) 
1*500 
1*509 
1*709 
l*»oO 
1*710 

19  OOO 

15109 
19209 
!>  1  09 
19*  01 
19909 

I960  1 
1 1 70  1 
liSOO 
15919 
l.  0  01 
1.10  1 
lo  200 
lo  101 
la*  00 
la  509 
5  9-509 
1  a  7  0  0 


lol  JO 
la  100 
17909 
17  no 


1/2)9 
17  100 
17*00 
1/5)1 
17600 
17799 
17000 
17900 
IDOJO 
-  -  10 1 01 


dimension  kyroo).  xi*c(  to) 
integer  upaci.  uppe#  uppu 

PEAL  NVFS 
C 

C  READ  I  HE  LOi  IRA NSFOR 1 A U ON  INDICATOR 

C  If  IIUS  *  "LOS"  TRANSFORM  THE  R A TI Mu /P A YG R ADE  QUALITY  TO 

C  TO  RATING/LIS  9U*Ll TY 

C  IF  t L OS  *  "  "00  NOT  MAKE  TllF  TRANSFORMATION 

RE  AO  (  >>190  0  1LQS 
1000  FORMAT  (All 

IF  CILOS.ME. JMLOS)  ILOS*t 
IF  (ILUS.NE.l)  I  LOS-9 
IF  (ILUS.FU.O)  WUIF  <6, /OOP) 

IF  tlLOS.NE.O)  WRITE  <6.70101 

7000  FORMAT  (IHO.SX. "REQUIREMENTS  ARE  BEING  TRANSFORMED  FROM  RATTNG/PAY 
•GRADE  TO  R*TlNu/LOS"> 

7010  FORMAT  (IM0.5X. "REQUIREMENTS  ARE  NOT  BEING  TRANSFORMEO  FROM  RATING 
•/PAYGRADE  TO  RATING/LOS") 


C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

L 

c 

c 

c 

7“ 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


HEAD  TH F  USFR  INPUT  INDICATORS 

INPUT  l  -  FORCES  UPDATES  II Y  PU/PE 

IF  INPUT! 1 ) >0 .  USFB  IS  USING  THIS  OPTION.  AND  INPUT(l) 
IS  THE  NUMBER  OF  UPOATrS 
IF  INPUTT 11=0*  USFR  IS  NOT  USING  THIS  OPTION 
COL  Si  1-* 

2  -  UIRECT  FACTOR  UPilATFS  BY  PU/PE 

IF  I NPU T( 2) >1 .  USER  IS  USING  THIS  OPTION.  AND  I  NPUT!  2  1 
IS  THE  NUNGER  OF  UPDATES 
IF  InPUT(2)=U#  USFR  IS  NOT  USING  THIS  OPTION 
COLS:  5*4 

1  -  PERCENTAGE  BACIOR  UPDATES  dY  GROUPS  OF  Pu/PE'S 

IF  INPUT! 1  )>1»  USER  IS  USING  THIS  OPTION.  ANO  INPUT(l) 
IS  THE  NUMPER  OF  UPDATES 
IF  INPUT! 11*9.  USER  15  NOT  USING  THTS  O’ f I  UN 
COLS:  9-12 

*  -  CHANGFS  to  THE  NARH  PROPORTION  OF  F I X E 07 Y * « I  ABLE  FIR 
FORCE  SUPPORT  PE  CODES 

IF  INPUT( *)>0.  USER  IS  USING  THIS  OPTION.  ANO  INPUT!*) 
IS  THE  NUMBER  OF  CHANGES 
IF  INPUT! *)>0#  USER  IS  NUT  USING  THIS  OP  I  I DN 
COL  Si  11*16 

5  -  USER  CREATED  SUPPORT  AR  E  *  S 

IF  1NPUT(5)>0.  USFR  IS  USING  THIS  OPTION,  ANO  INPUTCS) 
IS  THE  NUMlER  OF  USER  -AREAS 
IF  i:iPUT(5)=0#  USER  IS  NUT  USING  THIS  U“TION 
COLS:  17*29 

6  -  PERCENTAGE  CHANGE  FOR  FIXFO  REQUIREMENTS  YEARS  1*16 

IF  INPUT(6)>0,  USER  IS  USING  THIS  OPTION 
IF  INP UTC  6 1*0#  USER  IS  NUT  USING  THIS  OPTION 
COL  Si  21-2* 


REAO  (5. I  01 C)  INPUT 
1010  FORMAT  (61*1 


C 

C  REAO  FORCE  UPUAIFSt 

C  MAX  OF  200  FORCE  UPDATES 

C  FORCES  ARE  IDENTIFIED  BY  ACT »  PE#  PU  COOES  WHICH  ARE 

C  IN  COLSI  I"*.  7-12.  15-20 


B-84 


Jo  ’O') 
Jj  J  )) 
<1401) 
J65  JO 
1,6)  I 
<0/)-) 
so  no 

JIU) 

joooo 

shod 

sv2o) 

S)  SO) 
(/mii 
Jiso) 
<0600 
I  TT  01 
S9»)) 

<mo 
'.0  000 
40  1  O') 
4)2)0 
u  J  0 1 
'.04  0) 
405)0 
4060) 
4j?)1 

40  00 
4  )  >0) 

41  )0) 
4110) 
41200 
41  <0) 
4140) 
415,0 
4  160  ) 
4120) 
41  4)0 

41  >  )  .) 
4  2)00 
4  2180 
42?,0 

42  TO) 
424)0 
4250  ) 
426)) 
4  220) 
4  ?  1  J  ) 
420)0 
4  1)0) 

4  no) 

4  I?  JO 
4  10) 
4  <4  M 
4  1501 
4  16  0) 
41M) 
414)') 
41000 
44)00 
44  100 
44?8) 
44  SO  ) 
4440) 
445  )) 


C 

C 

c 


c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

L 

c 

c 

c 

6 

c 

c 


NE  U  FJRcrs  FOR  YEARS  l-NYCAR  Alt  IN  COLS : 

1-5.  6-10.  11-15.  16-?).  21-25.  26-JO.  J1-J5.  J5-40. 

41-45.  46-50.  51-55.  56-60,  6l-©5,  66-20.  21-/5.  2 6-rtO 
10  IF  (INPUKI  >.L£.  0  >  GJ  in  14) 

IF  (INPtJIU  I.GI.20I  )  CALL  FOOD*  {  6  .  I  NPU  I(  l )  .  0, 0.  0.  )  ) 

UO  6)  NUP  =  1 . INPUTS  l  1 

RE  4)  (5.00)  UPACT(NUP)»UPPF(flUP).UPPU(NUP> 

«F.AO  (5,1)0)  (  JPUWC(NUP.K),K  =  l,NYEAt|) 

60  LQnIINJE 

Kuril  r HE  FORCE  UPJA1ES 
WRITE  (6.1100 
NUP*INPUI(l  ) 

L  *  1  0  ) 

P-IBT-l.llYEA.l 
00  A)  I  -  1 , N UP 
L*L  ♦  l 

IF  ( L  •  L  f •  2  5  )  GO  10  TO 
WRITE  ( 6 , 12  0  (K.K* IdY.H) 

L  -J 

TO  ,1)1  TE  (6. ISO)  UPACI  (I  >.UPPE(  I  O.UPPUT  I)  .  (  UPDATU  l.K  ).K  =  1  .NYE  Ad 
A 0  CONTINUE 
90  FORMAT  UA.IA.M) 

10.)  FORMAT  (  6{  15.F5.0)  ) 

111)  rOR-AT  ( /6  A  »o9H  T  HE  F.1LL0..ING  UPDATES  ARC  REPLACING  THE  NARN  ONES  I 

•  fl  THE  INPUI  FORCE S /  6  X .  45)1  HI E  SF  UPDATES  ARE  IN  EFFECT  FOR  IMIS  (UN 

•  UNL  Y  ) 

l?)  FORMAT  (IH  ,  l  l  A  ,  SHACI»4X,?Mt*F»6X,?HPU/llX,4HC00E,SX,4HC00E,4X,VHC0 

•  OF,  *  A ,  I  6  I  6 ) 

110  FORMAT  (1H  ,1CX. I4.2X.I 6. 2X. I  6. I  X. 16F6.0) 

RCA.)  DIRECT  FACTOR  UPOATFS  RY  PU /PE 
MAX  OF  10)  UPOATFS 
UPDATES  ARC  lOCXtirtFO  JT: 

COLS:  1-6  -  PU  CODE 

9-14  -  Pf  CO OE 

12-2)  -  FI<SI  YTAR  AFFECIFU 
2J-?o  -  LAST  year  AFFFCTCO 

29  -  MUMPER  OF  FACTORS  AFFECTED 

FOR  EACH  FACTOR  ATFECTEO.  SPECIFY: 

CJLS:  1  -  FACTOR  NUM  1E.( 

2-6  -  FAC  TUT  VAI.UF 
FACTO)  MURDER  1  IS  RASE  OPS 
?  15  I < AIMING 
S  IS  MEDICAL  SUPPORT 
A  is  RPC  PU I  TING  ♦  EXAMINING 

5  IS  l NO  I  V  t DUAL 

6  IS  QNJ0A9D  NANNING 
14)  IF  ( INPUT(2).LF.O)  GO  TO  16) 

DO  1,0  1*1.100 
JO  ISO  1*1.6 


150  DFoPuTd. J>*-100. 

00  1,0  K*1»INPUT(2> 

,NOFUR*K 

IF  (NOFUP.GT. 100)  CALL  ERRORS?. NOFUP. 0.0. 0.0) 

RFAO  (5.2000  ( IFUPDTOAOFUP.f )»(*?. 10).  N 
20)0  rO'IMAt  U6.IH.2I6.il) 

JO  1/0  1*1, N 
READ  (5.2010  J.X 
201 J  FORMAT  (I1.F5.0) 

IF  ( J.LE.0.CH.J.GT.6)  CALL  E  RROR(  8  .  IFU  PO  T(  N  Dr  UP.  /  >.  T  F UP  OT  (  R  QFU»  .  3  ) 
•  .  J,  0 , 0  ) 

IF  (J.EO.O)  GO  TO  ITO 
DFuPOKNDFUP.  J)*X 
l?)  CONTINUE 


A 


B-85 


4*604 
4*700 
44  603 
4  4  400 
4o  IJ1 
4  o  l  30 
4  >>0J 
4  0  3  3  3 
4  0403 
43303 
4  ,60  ) 
4  s  70  0 
4  >  1()9 
43  303 
4  oQ  30 
4ul03 
4  i»00 
4  a  5  '3  3 
46433 
4  J  3 
4  b  4  J  3 
4  ,733 
4  613  3 
4,303 
4  7)33 
471  31 
•.7  7  30 
4  7  10  1 
47  430 
47303 
4  7  600 
4  7  7  ,3 
4/330 
4/  703 
4  110  3 
4  1133 
4  02  30 
40  103 
40403 
4  1 33  3 
4  j6  >3 
40  7)3 
4 ,003 
4  I'M 
4  >000 
4  7  103 
4  /  7(1  ) 
4  3  109 
4  7  40  3 
4  9,33 
4  >.,01 

4  7  700 
4  7  133 

4  90  00 
30100 
30103 

5  0  7  J  3 
30  5  70 
3  34  73 
30333 
3  06  13 
5(77  00 
5o1  70 
50  7 33 


160  CONTINUE 

WHITE  ( 6. ?0?0 ) 

2ozo  format  (iHu.bx.-THE  following  factors  are  replacing  the  narn  onts 

•  IN  THIS  RUN  11NLY’/14X.2MPU»6X»2HPE,6X.  5H  YE  A  R  S  .  4X  »  6llF  AC  TOH  .  2  X.  4  HN4H 

•  C  ) 

00  171  I-I.NJFUP 

IF  C  IFUPI3K  I.  ID.LT.IFUPOTC  I.9»>  I F UPO I ( l » 1 3  )  = 

•  IFU/Ofd.J) 

00  176  J=  1  »  5 

IF  (1FJP)T( I.J3.LT.0)  GO  TO  17b 

WRITE  (  6.20  30  )  {  IFUPDTt  I  .K>  ,K=7 . 1  0  )  .  OF  UPO  HI .  J).  tNMEC  J.ft),K=  1.  3) 
2030  FOR  1 M  (1 2X.I6.2X.1 6.2X.I 4. IH-. 14.2X.F  o . 0 , 2  X ,  346  ) 

176  CONTINUE 

IF  COFOPOK  I.6).Gr.D 

•WRITE  (6.2o30)  (  IFUPOTC  I.K  >  .K=7.10  3.  OF  JPilTt  1.6).  (NAME(d,K),K=l .  3) 

I FUP  ) T( 1,9  7  =  1 FUPJ I C I. 9 3*1 -l BY 
IFoPOTI I  .  I  (3  )=  l  F  UP  0 1  ( 1.103* l-IRY 
173  CONTINUE 

C 

C  HE  A J  THE  PERCENTAGE  FACTOR  UOPAfES  GY  GROUPS  OF  PU/PE’S 

C  MU  or  51  GROUPS 

C  FOR  F4CH  UPOATF.  SPECIFY: 

C  CILSs  1-4  -  FIRST  YEAR  AFFECTED 

C  7-19  -  LAST  YFAR  AFECCirO 

C  13-14  -  NUMBER  of  PlJ/pr  COR  l! NATIONS  IN  TOE  GROJP 

C  17  -  NUMBER  nr  FACT07S  AEFECrEJ 

C  IHF.N  SPECIFY  IMF  Mt“HEHS  OF  THE  GROUP.  ONE  TO  A  LINE 

0  MAX  JF  20  PE  COOES  PER  GKUU*: 

C  COLS:  1-6  -  PO  CtIJF 

C  3-14  -  PE  CODE 

C  THEN  FOR  EACH  FACTOR  AFFFCTEO.  SPECIFY: 

C  COLS:  I  -  FACTOR  NUMBER  (SAME  AS  OHECT  ‘‘ACTOR  U°34fCS) 

C  2-5  -  PERCENTAGE  CHANGE 

ISO  IF  ( INPUT( 33.LE.03  GO  TO  210 
GO  115  1=1.50 
00  113  J  = l . 6 

115  lTuDJI(  l  .  J>  =  -999?9  3  . 

00  190  K  =  l»  INPOK  3  ) 

NPFSJP  =  K 

IF  (NPFUP.GT.31)  CALL  ERROR ( 9 , nPF U" . 0, 0 . 0 . 0  ) 

OF  AO  (5,30303  ( JF UPD T ( NPFUP . I  )  .  1= 7 . 9 )  ,  N 
3000  FORMAT  (14. 16. 14.  Ill 

IF  (JFUPOHNPFJP,  93.GT.20)  CALL  ERR  nR  (  3.  JF  UPO  T  (  NPF  J  P,  9  1.  0.  0.  1.  0  ) 
GO  200  I = l . JFUPDTCNPFUP. 3 ) 

200  MEAD  (5.J01C3  (LPFUPO(NPFUP.I ,J). J=1.2) 

101(7  F  Or  MAT  (16.11) 

00  2)2  I =l.N 

Hc  A  0  (3.2010)  I.X 

IF  (J.LF.0.OH.J.GT.6)  CALL  rRR')P(9»LPFUP0(NPFUP,  I .  I  >, 

•  LPFUPO(NPFUP. I .2  3, J.O. 0) 

IF  ( J.L  0. 0)  uO  TO  202 
PFUPJKNPFUP.  J)  =  X 

202  C0UT1NUF 
193  CONTINUE 

WRITE  (6.  1129) 

3020  FORMAT  ( l N J , bX . - T HE  FOLLOWING  FACTORS  A»F  BEING  INCRE A S F071 ECRE ASE 
*0  riY  THE  SPECIFIED  PERCENT  FOR  THIS  RUN  ONL  Y* /2  1 X .  7MPER  CEN  (/ 
•14X,3HYEARS.3X.6HCHANGE»3X.6HEACI0i(,14X,5HPU7P£) 

GO  209  I *t . NPF  UP 

IF  (  JFUPOTU.Ol.LT.  JFUP9KI.7))  JF  UPO  T(  l  .  1 )  =  JFUP  0  T  (  I  ,  7 ) 

00  217  J» 1 . 3 

IF  ( JFUPOT  (I. J). EO. -999999  .)  GO  TO  207 

WRITE  (6. 30  31)  (  JFUPl)  T(  I.X). 1  =  7.1),  PFUPOKl  .  J  ) .  (  NA  ME  (  J.  K  >  .  K  =  1 .  3  ) , 

•  (LPFUP1(l.l.l(>.K«l.?) 


MOJO 
511)) 
512  01 
5i  io> 
51 4  J) 

51  5  JO 
515)0 
51/00 
51)03 
51)0) 
52000 
521  JO 
52231 

52  10) 
>2  4  J  1 
5250) 
5  2401 

52/  j} 

52  vio 
5*)  n 

510  00 
5)100 
5)20) 
5)1')) 
5)4  )0 
5)500 
5)50) 
5  J  2  0  ) 
5)301 
5  JO  10 
54  0')) 
54  1  00 
54  7  01 
54  100 
>4400 
54  >00 
5  4  4  o  I 
54/00 
54)00 
>4  »J1 
5>  0  )0 
55100 
552  1) 
5*i  J) 
5  >4  00 
5  >500 
5>bU  ) 
5>  /  JO 
55d  )0 
55900 
5o  0  00 
55100 
5o200 
5ul  00 
5b  4  10 
5b500 
55500 
55/00 
5  b  X  J 1 
56  )00 
5/000 
5/1  JO 
5/200 
5/  100 


)  rO'OAT  <I2a.I4.IiI-,  U»  JX,r>.2,JX, JA6/2X.  J6.lH/,Ib> 

PFUp0T(  t . J>  =PFUp0T<  t. J)».0l 

if  (jFupjrc  i.oi.Lr.?)  go  to  /nr 

on  706  X  =  ?»  JFU1*  D  f  (  I  »  9  ) 

4 .11  IF  (5.1040)  (LOFUP  )(  I.K.L  >.L=1»2> 

I  TOXNA  r  (5?X  .  15.  1  1/.  15  ) 

.  CONTINUE 

■  continue 

IF  (JFJPul  (1.6  >.NE. -90999').) 

•  Oil  Tt  (  6,  1030)  (  JFJPQK  [.  !<).«  =  /,  8  ).PFUPDf<  I »  6  >.  (  NX  ME  (  3.  K  >  »K  =  1 »  i  >, 

•  (IPruPOd,  l.K)»K=1.7> 

IF  (  JFUPl)  T  (I. 5). NE. -9*9999.) 

•PFUPOK  I  .  5)  *<*FUPOT(  (.4)  *.01 
JFUPJTI I, / )= JFUpDT<  !»  7)*l-I9Y 
JFOPOK  I.  8>*JFUPi)T<  1.6)  H-I9Y 
IF  (JFjPOK  I.9I.LT.7)  GO  fJ  209 
JO  70)  K  =  7,  JF UPO  f  (  I  .  9  ) 

•  HI  IF  (5.1040)  (LPFUP0(  I«K«L)»L=1»2) 

1  C ON  I ( SUE 
t  CONTINUE 

READ  IKE  U5E X  CHANGES  10  ME  NARM  t  I X F3/ V AXIAOLC  SPLIT 
F  0 1  EACH  CHANGE.  SPECIFY: 

COLS:  I  -  FIHCf  SUPPORT  AREA  NU<DER 

4-5  -  NUHuEK  OF  YE  *HS  AFFECTFO 
FUNCE  SUPPORT  AREA  NUMBER  1  IS  ti.ASF  OPS 

7  IS  TRAINING 
J  IS  HEOICIAL  SUPPORT 

4  IS  RECRUITING  ♦  EXAMINING 

5  IS  I  NO  I  VI  DUAL  SUP  PON  T 
THEN  TON  EACH  YEAR  AFFECTED.  SPEICIFY: 

COLS:  1-4  -  YEAR 

5-tU  -  PERCENTAGE  CHANGE 
*  DO  215  1=1,5 

READ  ( t  U>  T , 4  150 )  (  N  VF  S( I,J),J  =  1,6) 

UQ  215  .l=/»T6 
.  NVFS( I. J)=NVFS(  1,6) 

I  FORMAT  (oF>,.0) 

00  720  1=1.5 
UO  720  0=1.14 
)  OVF  S(  I  .  J  )  =  .NVFS(  l.  J  ) 

IF  (  l  N|*UT(  4  ).LE  .0  >  GO  TO  260 
JO  710  M  =  1  ,  (NPIJK  4) 

1  *) 

IF  (I.ST.5)  CALL  ERR0R( 10. I .0.0. 0.0 ) 

XEAO  (>.4000)  J.N 

>  FORMAT  (11,14) 

IF  ( J.LT.l.OX.J.uT.5)  CALL  ERRUR(tl.J.O. 0.0.0) 

IF  (J.EO.O)  SO  TO  210 

XEAO  (5.4010  (KYR(  I).XPC(I).I  =  1.N) 

)  FORMAT  (I4.F6.0) 

DO  9/5  K  =  l , N 
L  =  Ar«U,()*l-I>Y 

IF  (L.LT.l.OX.L.GT.NYEAR)  CALL  ERR UR( 1 2 , L . J.O. 0 . 0 > 

IE  (L.tO.O)  GO  IJ  275 
UYF  S(  J.L  )  =  XPC(K  ) 

>  CONTINUE 
)  CONTINUE 

HHITC  (6.AU10) 

)  FORMAT  <lH0.4X»"tHE  USER  IS  CHANGING  TtlE  PERCENT  THE  NARM  YAXIES  I 
•HE  FOLLOWING  SUPPORT  AREAS  MITri  THE  FORCES:"/ 

•  J9X.4HNARN.5X.4HUSER/11 X, 12HSUPPURT  ARE  A. 9X , 4HYE AR.  2<2X. 7Xi»ER£E 

•  NT)  ) 

00  2  >0  1=1.5 
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5/403 
5/530 
5/63) 
5/7  )  ) 
5/1  30 
5/  >33 
5  i)  30 
sal  j) 
5a2  0) 
SoUl 
Si)l« 
5i5J0 
5,53) 
5)737  . 
51J00 

Sana  . 
5y  001 
5  9  no 
59?ao 
59  1  )0 
5  9400 
59500 
5  963  0 
59/31 
593  3) 

5  3901 
5  33)3 
53130 
6373  ) 
bo  300 
504)3 

5  0  5  0  ) 
60630 
6J/00 
,013  3 

6  3  700 
61030 
611  JO 
61200 
61  500 
614  33 
61530 
61  S3) 
61/30 
61  5  J  1 

61  903 
620J0 
6213  ) 

6  c  2  3  3 

62  330 
624)0 
be  SjO 
62  6  00 
62/30 
62133 
6  2  I  JO 
61)3) 
61130 
61200 
61330 
6  34  wl) 
61500 
65600 
61/00 


on  ?40  J= 1 »  1  6 

i r  ( n vk s ( i#j)*£o«nvrs(i#j))  cn  to  240 

R*jnar-i 

WRITE  (6.4023)  CN4MEI  l.ll.LM  ,1).K.  NV/SU  ,  J).OVFS(I>  J) 
fn  !*MT  (  l  IK.  14  6.  17.  7«  ,F  7.2,  2X.F7. 7) 

30  IJ  24.? 

CnSTINUf 
50  T'j  250 

IF  (J.uE.lb)  GO  TO  750 
UO  244  K*  J  *  1 . 1 6 

IF  ( NVFSC  1. M.EO.OVFSC 1 .«) )  GO  TO  244 
C*<*13T-l 

WRITE  (6.4343)  L.N  VFS  (I  »K  I.OVFSU  .K  ) 
rORMAT  ( J1X,15.2X,F7.7.2X.F7.2> 

COHI  NuE 

COOT  I NJC 

00  252  1=1,5 

30  2,2  J*l,l5 

MVF  S(  I  ,  J  )  =  NVF  S(  I .  J  1  *.  Ol 

0VFS( 1, J)=OVFS( I.  J)».01 


WE 40  USER  SUPPORT  AREAS  -  (A  GROUP  OF  PES  WHICH  ARE  MOT  FO(CE  3  9 

FORCE  SUPPORT) 

MAX  OF  la  USER  SUPPORT  AREAS 

FOR  EACH  USER  SUPPORI  AREA,  SPECIFf: 

COLS:  1-2  -  SUM  RE R  OF  PE  COOES  IN  THE  A  <E  A 

1-1  -  PERCENT  UF  TIE  AREA  RHICH  IS  TO  t)<:  VARIABLE 
PLANNER  ALLOWS  FOR  I  HE  P»  )XT  TO  HAVE  UP  TO  7  COMPONENTS: 

10  COMPONENT 

1  -  3ASE  OPS 

2  -  TRAINING 

3  -  MiniCAL  SUPPORT 

4  -  RE C< U ( T (NG  »  EXAMINING 

5  -  IN  DIVIO UAL 

6  -  SHIP  FORCES 
/  -  4/C  FORCES 

PLACE  THE  13  NUMBER  OF  THE  PRJXY  COMPONENTS  IN  COLS: 

10.  12.  14.  16,  la.  20.  22 

THEN  LIST  THE  PF  COOES  WHICH  WILL  CONSTITUTE  THE  AREA, 

MAX  OF  10  IN  C3LSI  l-b,  9-14.  1  /-  22.  25-10,  H-Jd. 

41-46.  49-54.  5/-62.  65-/0.  /Wd 
IF  (INPUT! il.LE.O)  GO  TO  110 
NU3=(NPUT(5 ) 

0  0  12  0  MM.NUS 
J»N 

ir  (1.UT.10)  CALL  ERROR(II.I.O.O.O.O) 

READ  (5,5300  NUSPt(I.ll).  VPCUS(I).  (  N US* X( 1 .4 ) .1*1 . 7 > 

FORMAT  (U.rt.'i,  M2  ) 

RE  AO  (5.5010  (SUSPECT. K).K=l»NUSPE(l.ll>) 

FORMAT  (16.9(d) 

WRITE  (6.5U3J)  (NUSPE tl . J 1 .J* l.NUSPEC I. 1  I ) ) 

FORMAT  (lHi.6X.-THE  USER  IS  CREATING  4  VAR1AJLC  SUPPORT  AREA  COMPR 
•ISING  THE  FOLLOWING  PROGRAM  ELE MEN T S S ■/ 1 0 X » 1 0( 1 6 ) ) 

WRITE  (5.5043)  VPCUS(I) 

FORMAT  (IH  ,64. "THIS  SUPPORT  AREA  IS-.F6.2,"  PERCENT  VARIABLE") 
VPC'JK  1  )  =VP  CU5(  I >• • 01 
WRITE  (6.5053) 

E0R«1T  ((H  » 6X. *  THE  SUPPORT  AREA  WILL  VART  WITH  THE  FOLLOWING  »R0* 
•  IES  **  ) 
uo  no  j=  t ,  / 

IF  (NUSPXd . JI.LE.O )  GO  TO  120 
K*NU,PX( I .J) 

WRITE  (6,5053)  (NAME(K,L)#L«1.J> 
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6JB  oo 
6  WOO 
64  ))) 
b  4  1  J  ) 
6,,2.)1 
b  4  5  )  ) 
6440) 
b45J  ) 
64  6  JO 
6  4/0) 

64  HUO 
64901 
6  >001 
6  >  l  J) 
65231 

65  JO  ) 
6>4  J  1 
6  >  5  )  !> 
6  5  6  3  3 
65/0) 
6)  101 
6>)J> 
660  0  ) 
6.101 
So  231 
6b  JO  1 
SotOl 

66  6  0  ) 
646OI 
6u/00 
606 0  ) 
6  >  10  1 
4/001 
6/1)1 
6/  2d  1 
6/  JO  1 
6/40  1 
6/SO  > 
6/60  ) 
•6/ /O') 
6/  600 
6/1  01 
630  0  ) 
661  »1 
66201 
6  J  Jl  1 
6  6  4  00 
6  05  01 
6  6  6  0  0 
63/01 

6d  SO  1 
6090  1 
6  1100 
69101 
60201 
6  0  JO) 
6  04  01 
60501 
69600 
60/dO 
603  00 
69001 
/OOJ1 
/0100 


506)  FORMAT  (12X.JA6) 
120  CONTINUE 
4  U>  =  1 

J10  CONTINUE 


l>l»d  [  HE  PC  ilCE  N  T  AGE  CHANGES  E  1)1  YEARS  1-NTEA9 
CJIS:  1-5.  6-lJ,  11-15.  16-20.  21-25.  25-JJ.  11-J5.  J6-40. 

41-45.  46-50.  51-55.  56-60.  61-65.  66-/0.  Z1-/5.  /&-« J 
IF  (INPUTC61.E 0.0)  GO  TO  4J0 
REAO  (5.6100  ( F IXPCI ( l > . I = 1 » NTE4R > 

F  lit  M  4  I  (I0F6.O) 

WRITE  (6,6011) 

F  OH  HAT  (1H0.5X. -FIXED  .N  EO  U  I R  E  «E  N  r  5  AHE  BEING  CHANGES  BV  THE  FOLLOW 
►  PTRCEN  T AGE  St"/ 1 1  X. 4HVf AR  .  2 X . /HPERCENT ) 

UO  4>1  1  =  1, NY  EAR 

IF  (E1XPCK  D.E0.0.O)  GO  TO  4  20 

k=i  ♦ior-1 

W/ITE  (6.6020)  K ,  FIXPCTCI) 

F  I  X  PC  T(  l  )  =  F  IXPCT(  l  )  *.  (11 
COoTINJE 

F  OK  HA  T  (tlX, 14, FA. 2) 

CONTINUE 
HE  T  URN 


SUBROUTINE  HOniPC 

COMMON  /il/  IR.NR.L  IH.XHOL  J.  IHOL  J.  INO.  I’J.  X.  ILOJ.  NYEAJ, 

»  NAC.  N’PE(  6  )  )»  .NPU(61.IC), 

•  HASTE(b61), 

»  TF<)RCF(  201, 16).  ACK/01).  PE(?01).  RU(2)I). 

•  UPCiA  TE(  200. 16  ).  UPACI  (201).  JPPE(2jl).  JPPU(201)»  NUP. 

»  NN  C  0Dr (  191 >,  PUCJDE ( 1 91  ),  NCOOE. 

•  l.J.K.L.H.N.I  1, 12,1 J , Jl »  )2.  J1.1PL.JPE.  JJ.N1.N2.NJ.N4, 

»  1).  6L 

COPHJN  /»-!/  SHIP.  AtH.  ALL.  FIX 

COMMON  /FILES/  IUSF  .  I  UAf  ,  IUUHI.  IUIIN2.  IUSJ. 

•  I JSO. IUAO. ! JHO.IUHSF. UHAF. IUVR.  I  OR  A. 

•  IUFPA.IUOUT.IUST.IUlN.IUPH.IUY 

INIEbER  ACT.  °E»  PuCQJE.  UPACT.  UPPF,  UPPU.  PI).  SHIP,  AIR 

INITIALIZE  VARIABLES  -  N I  -  61  ACT  C10ES 

N  2  -  10  PF  COOES  °£  R  ACT 
NJ  -  M  PU  CODES  PER  ACr/“F 
N4  -  200  INPUT  RECORDS 

I»=  G 
,51  =  60 
N  2  =  1  > 

N  5=  t  J 
N  4  =  2  0 1 
N  AC  =0 

30  10  1=1. Nl 
NPt (11=0 
0  0  Id  J= 1 . N  2 
NPU(i»J)=0 
I  J= IUAF 

IE  ( INJ.EO. SHIP )  IU  =  I  USE 


RE  AO  THE  NAME  AND  PO  CODE  E TOM  tHE  ACT/PE/PU  DICTIONARY 
JU= l UAU 

IF  (INO. EO. SHIP)  JjJ  =  I  USD 
4EA0  (JO. 1/0)  NCOOE 
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'0200 

on  jo  i»i.NCune 

'o  vn 

to 

iirtO  (Jtl.UO)  NNCQOC (  I  1.PUC00EM  > 

rj  4  jo 

c 

'OSJO 

C 

4EAD  THF  FNRf.P  FORCES 

'o».n 

?J 

iru  ru 

'■>'  jo 

IF  CiR.Cr.N4>  C*LL  ERROR  (4* IR. 4CI < lK~l  )»  PE  ( I  R*l )»PU(IR-l )«N4> 

'j  ui 

Of  CD  UU.240.ENi)  =bO>  A  C I  (  IR>»Pf(I  H  ) » Pu (  10). <  f F  OHCE (  10.  I  >  ,  I  *  l  . 

'0  >u) 

»  nyeao 

'  no) 

c 

MIJI 

c 

LOOt  row  AN  u»0»ir 

'I2JJ 

If  (NUP.EO.O)  GO  TO  20 

'l  J01 

l *NUP* l 

MU9 

40 

J  =  1  -  t 

MSOO 

l»t|  SC  AN  XT  UP  AC  TO  >.  J.ACI  <  IR  )  ) 

a  b  n 

IT  ( t  .CO. 0)  GO  TO  20 

'l  '  00 

IF  (PEO  0  )  .NE  .UPPr<  I). UR. PUT  10)  .NE.UPP  J(  1 )  )  GO  TO  40 

n  u  i 

upactt  i  )*o 

'l  >00 

on  So  J-*  !  .  N  Y  E  A  R 

'2000 

so 

t  F  JRCET  IH  .  J  MUP0AIE  (I  .  J) 

"in 

GO  TO  20 

'2200 

c 

'2  MO 

c 

AOO  ANY  NF  4  FOUCF  UNITS 

'240  ) 

6  0 

NR  net 

'2SjO 

00  1.)  J  *  1  .NOP 

'2  >01 

ir  (opaci t j).r o. o >  go  in  to 

'?'»>  0 

IF  (UPACTCJ).GT.bOOO. AND. INO.EO. SHIP  )  GO  10  BO 

'2  10  0 

Ns>*n»i 

'  2*0  1 

IT  (NT.GI.N4)  CALL  ERRORT 4 . NR . A C I ( NR-1) .PE ( NR-l ) .PUT  NR- 1 ) » N 4 > 

'  MO  1 

ACT (NR)* UP  ACT! J) 

'0100 

PEtNO.UPPECJ) 

'  i’J'l 

PUT  NI)»UPPU( J) 

t  S  500 

U°*CI(  J  >*  0.  0 

'  It  01 

0(1  'J  itm.nyeah 

'  1  >  >1 

'0 

I  ruRCEINH.K )=UPOAIE ( J.K ) 

'  MOO 

00 

CONTINUE 

'  I'OO 

c 

'  J  1 0  1 

c 

COUNT  NUM1ER  OF  ACTIVITY  ANO  RFCOROS  PER  ACTIVITY 

'  J  >01 

I  AC  r«o 

'  V  00  1 

00  1)0  l  •  1 .  NP 

'4  l  0  > 

IF  (  ACT  (  1  ).  fO.  I  ALT  )  GO  TO  100 

'*200 

N  AC  =  4  AC  *  1 

'4  {JO 

IT  (r4AC.GT.Nl  )  CALL  ERHOHTl'.NAC.Nl.O.O.O) 

'  *  *  0  0 

l  AC  T=  AC  1 (  I) 

'4'i  J  1 

too 

.VPt  (VAC  )  j=NP  FT  NAC  >  »1 

'4  >0  1 

c 

'4 '00 

c 

COUNT  THE  NUWfllR  OF  PE’S  IN  £ACH  ACTIVITr 

'4  100 

c 

A.nO  WITHIN  EACH  THE  NUMBER  Ur  PU*  S 

'4  >J 0 

I  J*0 

'  MOO 

DO  I  >0  I  <  1  .  NAC 

'■>100 

I  I  -  I  1*1 

'  >200 

I  J*  IIANPEM  )-l 

's  {00 

OPLU  )>0 

'  >40  0 

IP£«1 

'>■>00 

JPE  *0 

'>000 

IF  (1  1  .&!. 13)  bO  TO  ISS 

h'O) 

00  l>?  J»t 1 .1 I 

'>000 

1 F  IIPF.tO.PFT J))  GO  TO  ISO 

'>  >0  0 

JPC«JPt»l 

'  o  00  1 

IF  (JPC.GI.N2)  CALL  LRAORtlfl. OP E.N2. 0.0.0) 

'o  1  01 

IPE-PFI J) 

'  o?  J1 

ISO 

NPUTI.JPt  )«NPU(  I.  JPF  >»l 

'u  {J  1 

1S2 

IF  (NPJ(I.JPC).GT.NJ)  CALL  ERROR  C 1 «. N P1K  I , JP r » . N J . 0 . 0. 0 ) 

'  b  4  )  ) 

ISS 

NPf (1 )«JPf 

'b  >00 

t  btl 

CONTI  NOT 
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/ou  3  1 
r  6/ 33 
/nftoi 
?.))') 
If  333 

n  u  > 

//  Ml 
//TO) 
7/ *01 

//sou 
//  f.  jo 
f/rn 
//  1  J1 
//  9J  ) 
MUJ 
/Oil) 
M?j  1 
/ft  111 
/  ><.0  1 
'  j59  ) 
/ftOOl 
/  ;/0  ) 
/sUl 
/  ft  9  J  3 
/9  1j) 
Z/IO) 
/  1  V  J  1 
//Til 
/  1401 
/  9  3  J  ) 

I  loOO 
/l/OD 
/  (Ml 

r»M* 

ft  300  J 
i»J  lil) 
GJ2J1 
10  501 
A  0.01 
MISO) 
ftJftOO 
RJ/39 
d3ft.)  > 
ft  J  9  j  ) 
ft  1 1 J  1 
HIM 
ftl-Ml 

II  5)1 
■U  Ajl 
ftlSOO 
dloOO 
11/10 
ft  l  1M 

01900 

?2JJ  J 
s<m  )o 

8210) 

324J3 

«2sn 

M2S11 
i2/» 
ftaio) 
42  U) 


c 

C  FIND  N4MC  FROM  DICTIONARY  AND  WRITE  FORCES  ON  PRINT-DOT 

NL=  100 

JO  2)0  1=1* NR 

J  =  nSCAN  X( PUCU0E. NCUOC.PUC I >  > 

IF  (J.EG.O)  J=NCJDE*1 
NL=  NL* l 

IF  (NL.LF.25)  GO  TO  190 
L  =  lBr-l ♦  N  YE *0 

WRITE  (6.220  I ND.(K.K= IBY.L ) 

NL  =  0 

190  WRITE  (  f>*  2  $  0 )  NNCOJF(  J),»CT(  I)*PEm»OUC  I  l.CTFORCCa  *K»#«*l.NY£ftft 

•  ) 

200  CONTINUE 
C 

C  COPY  THE  FORCES  TO  TAPE*  0  IDE  RE  1  >)Y  YEAR 

JU=I JRAF 

IT  UNO. EO. SHIP)  JUMIHSF 
O0  ? 1 5  1  =  1*  NYF  AO 
00  ? 1 5  J=l.M 

215  .RITE  (JO)  TFOrtCEC  J.I  ).  ACT(  J)  *PC(  J)*P(J(  J) 

HE  I  O.RN 
t 

1/0  FORMAT  (215) 

Ifto  FORMAT  (14X»A6»2X»I6> 

220  FOR  “A  T  ( 1HI  /  ’.X.  A4.4X.  THACT.  3X.2HPF.  6X.2IIPU/4X.4HNANE.  3X  .4HC00F.  2X  . 

•  AHCOOE  *  A  X • A HCOOE  *  I X  *  1 61 6/ 1 

2S0  rORMlT  (lHO.2X.A6.2X.I4.2X.I6.2X.Ib.lX.l6F6.il 
240  FORMAT  (  14. 16. 16. 16Fb.O ) 

ENj 

C 

. . . . . . 

c 

SUdRJGTlNF  CPF  IRC 

COMMON  /H/  SUPP0K5T.  INI).  I  Yft  .  flx.l.  ILOS.  NYEAR. 

•  NACA.  NPF4(60>.  NPUAC60.101, 

•  MACS.  NPEj(60).  NPUi(toO.l)). 

•  rORCE(60.1  0.  13).  I.1ACK60).  IDPE(oO.lO).  I DPU  (  63 . 1  1.  18  1 
COMMON  / 1 3/  SHIP.  AIM.  ALL.  TIX 

COMMON  / 1  A/  PECniJE(lOO).  LOCPE(lOl).  NO.  MAXPE 
COMMON  /TILES/  IUSF.lUAF.lUURl.tUUR2.{JS0. 

•  I  Oil. I  DAD. I JHQ.l UR  SF .IURAF.IUVR.IURA. 

•  IOEP  A.  PinUT,  IUST  .IU  IN.  I'JPH.l  RY 
DIMENSION  UNI  Tr( 1 10.9  1.  PERE0(110.9).  X(2).  SPFAC(»>. 

•  nUR(6C).  MUM(SO.IO).  KlCOM) 

INTEGER  PU.  PE.  ACT.  D.  FIXR. 

•  PECOJE.  SHIP.  AIR 
C 

C  SFT  UP  C1NTRJL  VARIABLES 

TOT AL=0.0 

IF  (INO. ME. SHIP)  GO  TO  20 
NAC=NACS 
DO  13  1=1 .MACS 
N U  R  (  I  )  =  NPES  E  I  ) 

I4=RPCS(  I  ) 

00  10  .1=1. N 
10  MUM (I »J)=NPUj(l.J> 

GO  TO  AO 
i»  N  AC* N  AC  A 

DO  33  1*1. NACA 
NUN( 1 1*  NPEA( 1 1 
N  =  NPEA<  I  ) 

00  13  J=!.N 
TO  MUM(l.J)*NPUA(l  .  J) 
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81000 
1110) 
812  3  3 
81500 
81403 
115  3  > 
8  15  3) 
81/00 
1113) 
81  >03 

non 

nio) 

14  2  3  3 
14  133 
14  4  0  3 
8  4  50) 
144  30 
n/3i 
14  103 
14  30  3 
1103  3 
85130 
34  ? 33 
»i  103 
8*400 
84  >33 
1*630 
3  4  /  0 1 
85130 
3  *90  3 
3*30  ) 
1*10) 
8  o  2  0  0 
lb  103 
3*433 
8«*  4 0  3 
18403 
3  c*  /  30 
5*3)3 
14003 
8/330 
1/1  31 
1/200 
8/  133 
8/4)3 
1/503 
8/803 
i//)3 
1/133 
1/9  3  ) 
38003 
3)1)1 
133  33 
43  103 
Is  4  J  3 
lo530 
13403 
13/30 

18  3)3 
38  9  3  ) 
19003 
8/133 
3/233 

19  101 


READ  SUPPORT  FACTORS#  MATRIX  TOTAL.  ANO  THE  UNIT  REQUHEHENTS 
3  A I II X  FOR  A  FORCE  ACT/PC/PU 
SAXE  IHE  5  TH  TEAR  INPUT  FOR  TEARS  6-16 
40  IF  (ITR.LE.5)  II r A 0  <IUURl.2/0#ENU*200>  PU*PE*ACT»(»PFAC(K)*K*t»  5)» 
•  YRTO  I4,( (UNI TR(K»L)*L» 1,9),K*1*1 103 

IF  UYR.EO.S)  WRITE  (lU'JRP)  PU»  PE .  A  C  T.  S  PE  A  C  *  YR  T  0  T  4  .  UNI  T  R 
IF  (1Ym.CE. 6)  HEAR  (IUUH23  pu.pe.act.srfac.yriota.uniir 
IF  (HU.  ED.  999999  )  cO  TO  200 

LOON  FOR  THIS  ACT/PE/P U  IN  THE  FORCES 
N  -N  AC 

50  I*0SCANX(  I  D1CT(1 3.N.ACT3 
IF  (I.iO.Q)  CO  TO  40 

M=1 

5b  OR  63  J  =  <# 4U  K I ) 

IF  ( PE. EU. I OaE ( I  *  J ) )  GO  TO  T 0 
63  CONTINUE 
62  N3 1  - 1 

IF  (U.uf.t)  CO  TU  50 
CO  T  J  40 

TO  DO  8  1  1=  l*riU  HI.J) 

IF  (PU.EO.IDPUI l» J»KI)  GO  TO  90 
13  CONTINUE 
K>HM 

IF  (M.CT.NUMt I) )  GO  TO  62 
CO  TO  58 

uOOO  1ATCH  -  CO  HP UTC  MANPOWER 
LOOK  FOR  THIS  PE  IN  THE  FILE 

90  K0*0 

IF  (ND.LI.l  )  GO  TO  100 
L=NSCANX(PECOOE(i >.  ND.PE3 
IF  (L.EO.O)  GO  TO  100 
1  D  =  L 

CO  TO  120 

NEW  PE 
130  NO=NJ»l 

IF  (ND.GT.MAxPE)  CALL  ERROR  <2*  NO *  PE. 1 A XPE *  0. 0 > 

PECOOF (  NU )  =  P£ 

LOCPEtND ) -NO 
10*  NO 
A  0-1 

ZERO  PERE3  ARRAY 
0  0  110  H= 1  *  9 
JO  1 10  L-l* 1  10 
110  PCRE3  (L  »  ■!  )  0.3 

IE  projection  mode  - 

ADJUST  EUR  ANY  USER  OVERRIDES  10  NARH  FACTORS 
120  IF  CFIXR.FU.O)  CALL  OVERN  { I YR. PU. P E » Y RTO T A  * $PF AC . UN  I TR 3 

MULTIPLY  HY  THE  FORCES 
00  110  M-1.9 

on  no  l* i  * 1 1 o 

110  JNI  TR(L»,<)-U'JTIR(L»MJ»FORC£U»J»D 
UO  140  N-1.5 

1*0  SUPPOR(N)=SUP?nR(N)*SPFAC(N)*FORCE<I.J.K) 
YRTOTA*YiITUTA»FORCE{I»J»K) 

TOTAL=TOTAL*YRTOiA 


UPDATE  THE  PE  FILE 
IF  (XO.EO.O)  Re  AO  (IURA3ID>  PCREO 
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in  )3 
)9i0  • 
Hihill 
i  >/ )  i 
89510 
if  >90 
t  .not 

111  l  90 
9  029) 
>919) 

904  n 

9  0  509 

994a ) 

9J/03 
><>aoi 
>9909 
>1901 
91109 
>1209 
9  1  5  JO 
9149) 
9150 
>15U1 
91/99 

>1  m 
>1  >01 
920J) 
92109 
92201 
>210) 
924  00 
124  09 
124)1 
>2900 
928J1 
92909 
91000 
91100 
11200 
9  1  5)1 
>1400 
91501 
9  1**00 
>  1  r  o  1 

9  5)91 
9190  9 
>4  109 
>4191 
94200 
94  199 
14490 
94  >01 
94  &  JO 
94209 

94  900 
>4900 
>■>0  90 
9  5191 
95200 

95  loO 
H4  99 
9  55  »1 
95401 
1»/o) 


01  U1  N  -  1  *  9 
00  1/0  M=t.ll1 

PE(F1(M»N>=PEREQ(N.N)4dNITa(H.Nl 

nritc  (1094=10)  i>c»ro 

SIGNAL  COMPLETION 
IDI'liU. J.K>=9>>991 
GO  TO  40 

El  9  OF  UNIT  REO.  MATRICES  FOR  THIS  YEAR 
CHECK  THAT  all  FORCES  MERE  COMPLETED 
(SAME  RFiULTi  FOR  ALL  TEARS) 

IF  (1 YR.NC. I )  GO  TO  215 
U  9  210  1  =  1. N4C 
N  =  NU  11  I  1 
00  219  J=  I .  R 
M=  lUM(I.J) 
uQ  210  K*t.N 

IF  (tOPU(I.J.K).NF. 999999) 

►call  ERROR  (  1.1  OACI  <  I  ).  I0PE(  I  .0  ).  I  DP'JC  I.  J.K  >.Q»  0  ) 

C 0  4  >  I'.'UE 

CHANGE  MARINE  CORP  INDICATOR  FROM  I  TO  I  TO  00  A  PROPER  »0<T 
■90  220  1  =  1.  NO 
I  MC ( I >  =  0 

J=prCODC( I l-(PEC10E(I  1/10  1*  l .1 
IF  (J.NE.S)  GO  TO  220 
PCCOoCC I  )=PEC1DE( I  1-2 
Z  NC  (  I  >=? 

CONTINUE 

SORT  PE  FILE  ARRAYS  8Y  PE 
K=ND*1 

00  215  1=1.  NO 
LtN=(-I 

IF  (LI  I.LT.?)  11  TO  215 
00  210  J=  2. L l M 

IF  (PECOJF( J-| ).LE.PFCODE( J>)  GO  TO  219 
lHi)LO=Pf  COOF(.l-  1  ) 

2FC0 Jf( J-l ) spr  COOE ( J ) 

PECO  IF  (  9  )  =  l  Hit  0 
!M  )Li)  =  LOCPEU-l  1 
LOCPE ( 0- 1 >=LOCPE( J) 

LOCREt  J>  =  MOLD 
IHJL:)=IMC1  J-l) 

I MC( J-l )=INC( J) 

I RC( J)= IHOLD 
CONTINUE 
C  ON  T I NUr 

CHANGE  MARINE  COPR  INDICATORS  U»CK  TO  1 
on  ?<,»  1  =  1.  .NO 
PECOUEC  t  >=PEC)Oc(  I  >UMC(  n 

NORMAL  FND 

IF  (IYR.EO.NrFAR.ANO.lND.EO. AIR)  LOCK  IUURI 
IF  (IYR.GE.5. 4N0.IN0.F0. AIR)  REMIND  IUUR2 
RFf URN 

FOnMlT  (Ho.SFb.l.  990Fo.l  ) 

END 


S09R1UI I NF  CPSUPP 

COHHON  /*!/  SUPPUR( 5 ) »  IND.  I YR .  FIXR.  ILOS*  NYEAR. 
•  NACA.  NPEA(60)»  NPUA(bO.lO). 
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»5)J0 
9)  JO) 
9'iOJ) 
Hid 
9o.?J) 
Hill 
9o4J) 
>t>5  ;■) 
■JboJO 

>5/0) 

9o303 
?>  *«i 
j/noi 

9/130 
9/23) 
9/53) 
9/490 
9/509 
9/539 
9//  )9 
9/  13  3 
9/9J) 

9io  n 
*u  )) 

9j231 
9  1 5  J  ) 
9  1  43') 
9  15)9 
9)509 
3.J/9  9 
9  3  5  )  ) 
9 J  Ml 
990)) 
99139 
9923  ) 
9953  ) 
994  )1 
99  5  JO 
99530 
99/3) 
1993) 
9  39J0 
1 90191 
199193 
10)23) 
103  530 
139430 
1035)1 
103503 
103/90 
13)13.1 
103730 
1  <91  900 
1  0 1 1  ')  3 
19123) 
1015)3 
101439 
101  593 
1315)0 
l  11/3) 
1013)3 
131 9J0 
10203) 
1 9210) 


C 

C 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 


c 

c 


•  N4CS  *  VPrSCftOJ,  NPUSC  60  *  l  31 » 

•  navkejc  iu.13). 

•  VARRFOC  l  1 1  .1  0. /). 

•  UNI 1R( l 10.9).  PEREOCU0.9).  Y( 2). 

•  T0T4L(5>.  NP  F  (  5  >  »  SC  ALE ( 5  J  »  CPEC5).  ADJC5) 

C01RJN  / S  4/  PECOOECIOOJ.  LOCPF(IOO).  NO.  MAXPE 
COlRJN  /HI/  VSPK95).  KEYCJ5J.  N/«>E 

C01M.JU  /tE/  NAHEC9, 5) 

COMMON  / 14/  NUS.  NUSPFCl3.il).  NUSPXCIO./).  VPCUSCtl).  CURNTC/.I6) 

COMMON  /*?/  NVESC5.15).  0VFSC5.16J 

COMMON  /FILES/  I USF . I U1F . 1 UUR l. I UUR 2. I  US  9. 

•  iuso.iuio. ruoo.i unse.iurae .iuvr.iura, 

•  IJEPA.IUOUT.tUST .IUIN.IUPH.IBT 
DEAL  NVFS  »  NAVNE1 

INTEGER  PECOOE.  PE.  E.  CPE.  FIXR.  VSPI 

SET  UP  VAR  I  A  3L  E  S  EON  THIS  YEAR 

-  READ  TILE  IUS)  FOR  YEARS  1-5.  FILE  IUEPA  FOR  YEARS  o-lS 

-  MANPOWER  TOTAL  PER  ARCA  -  TOTAL 

-  NU"«ER  OF  PE'S  PER  AREA  -  APE 

-  CHECK  ON  NON  RE  R  OF  PE'S  PER  A  TEA  -  CPE 

-  FI XEO/VAR I  A JLE  AOJUSTMENT  PER  AREA  (IF  PROJECTION  NOOE  ) 

-  AO  J 

-  SCALING  CONSTANT  PER  AREA  -SCALE 

E=IUSO 

IF  (1TR.SE.6)  E=  1UEP  A 

READ  CE.2  59  )  ( T OT AL C I  ). NPFC I) . I =1 . 5 ) 

IF  nYJ.E0.1l  WRITE  (IUEPA. 250) 

•  ( lOTALCI ). NPE (1  ). 1  =  1,5) 
on  29  1-1.5 

CPEt I  >=0 
SCALE!  I  >  =  0.0 

IF  < TOIALC I I.GT.O.O)  SC  ALEC  1 )=SUPPOR(I l/TOIALCI  ) 

AOJC I  1-0.0 

IF  CFIXR.F9.9.ANJ.NVFSC  I.  IYN).flE.)VFS(  I.  IYR  )  )  AO  J  C  Cl  =  C  C  0  YFS  C  I  .  I  YR  ) 

•  -NVF3C l»IYR))/NYFSCl»IYR)) 

X*  A  0  JC  I  )*tO0. 

IF  (AOJC I  I.NE.O.O)  MK1TF  (6*25)  (NAM£(i.K).K*l.]>.  x 
25  FORMAT  ("0  /ARIA3LE  REQUIREMENTS  FOR  FORCE  SUPPORT  AREA  ".TAG. 

•  "IS  3EING  CHANGEO  ".ES.2."  PERCENT") 

20  CONTINUE 

2EH0  ALL  NAVY  VARIABLE  REOJIRFmEMS  ARRAY 
A N9  2EK0  THE  TOTAL  REO  ARRAY  FOR  PROXIES 
00  59  J  =  i.ir, 

00  50  I- 1.1  II 
13  NAVRE9C l»J>=0.0 
DO  52  K  =  l .  / 

00  J?  J=  l  . 1 0 
00  52  1=1.111 
52  VARRE9CI.J.K)xQ.o 
00  55  1=1./ 

55  CURNr(!.IY!<>=0.0 

READ  THE  SUPPORT  QUALITY  MATRIX 

I  sic  ip*  o 

IE  (NO.LE.O)  ISKIP*  1 
10=1 

40  READ  CE. 240.EN3* I/O  )  PE. JO. C C UNI TRCL.M ) .M* l ,9 ) .L *t . 1 1 0 1 

IF  (IVC.EQ.5)  HR  l  TE  (IUEPA. 240)  PE . JO. C C UNI TRCL . N) . N= l. 9 ) ,L  =  I . 1 1 3  J 

IF  (PE. EU. 99*9991  GO  TO  I/O 

CP£(JOI=CP£(JO)»! 

C0PP4RE  THE  SUPPORT  PE  TO  THE  FORCE  PE 
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ti — --I"  ■■■'■  Ih  - 


102201 

I  02  joi 

1325JJ 
102631 
l 022  51 

112101 
1029J) 
10J  )l)0 
1011 01 
I0J2J3 
101 101 
10  5400 
101500 
101600 
iojfoi 
loieoo 

101900 

I I  4  O  J  ) 

1 04101 
104200 
104101 
104400 
114503 
1 04 530 
104201 
104  101 
104900 
IOjOJO 
1)5100 
1 15200 
109 501 
101401 
1055)1 
1 15600 
Ill’ll 
llilOO 
101900 
1 lu 01  ) 
1  Oil  00 
11625  ) 
1  )o5J1 
I0o4  10 
ICoIJO 
l 06601 
l 06201 

iOooa.) 

I  0o)J  ) 
1  )2  00) 
1021 >0 
1022)0 
l  02  5*)0 
102400 
102500 
1 02600 
102200 
102500 
102900 
105000 
10110  ) 
1  0  J  2  0  0 
1  01 .501 
106410 
100501 


IF  ((SKIP. FO. 1)  G1  TO  20 
60  IF  (PE-PECOOEUO))  90.90.1  JO 

C 

C  WRITE  5UP°0Rr  PE  OK  OISK  -  NO  FORCES  IN  THIS  PE 

20  00  60  N  =  1  .  ) 

0  0  6  0  6=1.111 

X  =  0N1 TRIM. N  >• SCALE ( JO  > 

PCRF1(H»N)=X.K»A|)J{  JO  > 

10  XA9RE'K6.N)=.NAVRE0(6,N)n>ERE0CM»N) 

J  =  NSCA  )X(VSPT(  l  ).N¥P£.PE) 

IF  IJ.E0.01  00  TO  05 
J=KET( J  1 
00  62  6=1.9 
on  62  4=1.11) 

62  V  ARRES( 6. N. J)  =  V ARRCQI 6. N. J) tPERESI 6.N) 

65  nil  XL  CIUVR)  PE  *  PE  HE  0 
40  TO  40 

c 

C  RFS.  IN  IRIS  “E  FROM  FORCES  ANO  SUPPJRT 

C  CONIINE  PE'S  »N0  NR  I IE  ON  1ISK 

90  K 0=  LQCPE (10) 

REAO  C I  UR  A=  KO)  PERC1 
00  120  N=  l .  9 
00  120  6=1.110 
X=UNITR(N.N>*SCALE(.Ji>) 
PERE)(.1.N)=PlRrO(6.N)»X*X»AOJIJO) 

120  RAW tEl(M.N>*NA*RE0(6.N>»PERF8(6.N> 

J=  ISC*  (XI  VSPKl  >»NyPE.PE> 

IF  (J.EO.O)  SO  TO  125 
J=KEri J> 

00  125  0=1.9 

on  i?j  p=i.uo 

l?J  VA,<R£0(  6.N.  J)  =  VARRE  0(H,  N.  Jl+PEREOI  H.N) 

125  WRITE  ( I OVR )  PE.PERFQ 

10=  ton 

IF  (10.Gr.16)  I S  K I P  =  l 
CO  M  4  0 

C 

C  COPT  FJRCE  p£  Til  OISK  -  NO  SOPPORT  RES.  IN  THIS  PE 

ISO  KO  =  LOCPf  (  Ii)  ) 

(tAD  (IURA  =  Ki)>  °ERE  0 
1 9 1  T  E  (IUV|<)  PECUOEdO). PERES 
01  ISO  N=».9 
on  i b o  h=i.iio 

160  *1 A9  RE  1(6. N)  =  0  AV  RE  S(  6. Nl*  PE  HE  3(6. N) 

J=NSCANX(VSPI( l)»6VP£.PEC00E( 10)) 

IF  (J.EO.O)  GO  TJ  165 
J  =  (r TC  J) 
on  165  N=1.9 
JO  165  6=1. 110 

165  DAHREOC  6.N. J)  =  VARREO( M.N. J)*PtREa<  6. X> 

165  10=  10*1 

IE  (IO.LE.NU)  GO  TO  60 
I  SK I P=  1 
GO  10  90 

c 

C  END  UP  FILE  ON  SUPPOKT  TAPE 

C  COPT  RES!  OF  FORCE  PE'S  10  OISK  IF  NECCESART 

120  IF  (10.GI.N0)  GO  TO  210 
DO  205  K  *  1 0 .  NO 
KD*LOCPE( K I 
REAO  II URA*KU)  PEREO 
WRITE  (  I UVR  )  PECOOE(K  ). PERES 
01  200  N= l . 9 


100601 
105/00 
10<I4)0 
10)')00 
10)300 
10)130 
10  )201 
10)  100 
10)400 
10)500 
10)400 
l  o)2)f> 
10)130 
1 J9 )J0 
110003 
1 1 JlOO 
1 1020  3 
1 10130 
110400 

I  10500 
11 JbOO 
1 10O  > 
1 1 J  dOO 
110901 
11 1000 

II  U  00 
111200 

I I  1 503 
111400 
111500 
11 1600 

111) 03 

111  600 

III  )00 
1 12000 
1  121  )0 
l  12203 
l  1  250  ) 

I  1 2  4  )  1 
1 124)0 
1 1 24 J  1 

1 12) 0  I 

112  0  0  3 
112  >  i  3 
1 1 5 03 > 
11513) 
1 1 523) 

I I  5  1  >0 
1 1 5430 
I 1 550) 
1  1  io-J) 
1  1 5200 
1153)0 
11590) 
1  14  300 
114100 
11420) 
11450) 
114400 
1145)0 
1 14600 
11420) 
114000 
1  14900 


JO  200  M* l *  1 1 0 

200  NAVRC0(H.N)=NAVRC0(M.N)»PEHE9(N.N> 

J=NSCANX(VSPl(l>.NVPF.PF) 

IF  (J.E3.0)  SO  TO  205 
J=KEY( J) 

00  2)4  9*1,9 
00  204  9=  1.  1113 

204  VAKRF3(M*N»JI=VAKR£  IT  M.  N.  J  >  ♦  PERFQ(  M.  N> 

2os  continue 

c 

C  CHECK  THAT  ALL  PE’S  HERE  READ 

210  00  220  1=1,5 

IF  (CPE  (  I  ).  NE. MPE(  I  )  )  CALL  ERROR  C  5,  I .  C  PE  (  I  ).  9i*  E  C  I  >  .  0. 0  > 

223  CONTINUE 

c 

C  NORMAL  F90 

C  SUM  TU  (if  I  TOTALS  IN  THE  i  F  OH  CE  SUPPORT  AREAS  49J  IN  Sri  l  P  .  A/C 

00  255  1=1,2 
00  250  J=  1, 9 
00  250  K  =  I ,  Ilf) 

250  PEKEKM.  J)=VARRFO(K.J.I  ) 

CALL  SUM  (PERF'3.  X  3 
255  CURMU.IY(T)=X 

TF  ClYR.EO.NYCArt)  LOCK  IllSO 
IF  (IYR.GE.5)  REWIND  IUEPA 
PE=9)9V 9v 

WRITE  ( IU VR )  Pt.PEREO 
RE  TU  T9 

250  FORMAT  (5(F6.0.  I  63) 

243  E0T94T  ( 2  I  6 , 99 3F 6. 0 > 

£  NO 
C 

. . . . 

c 

SUBROUTINE  PRINT 

COMMON  / il /  !» J.K.IU. JYR.  INI).  IYR.  FIXR.  ILOS.  NYFAK. 

»  *4iIEl(661>» 

•  WAjT.E?{  661  >. 

»  9A)Pt )( 11 1. 10). 

•  V  A  '7  R  E  9  (  1  11,  10,23, 

»  W4STt'.<  110.9,  31), 

•  RTP  ERC(llO) 

COMMON  210/  SI!?,  AIR,  ALL,  FIX 
CORMJN  /tC/  IRW£(11)>.  JRATF(UO) 

COMMON  /IF/  NA.TE19.  3) 

COMMON  /FILES/  IUSF.HIAF.IUURl.IUUil2.I0Sa. 

•  lUSU.IUAO.IURO.IUKSF  .1 II  RAF  .1UVR.IURA. 

•  I JCP A,  IUOJT, IUST ,IU IN. IUPH. 1 RY 
DIME  1ST  ON  LMLEC  5,2) 

MEAL  NAVTFO 

INTEGER  FIXR,  ALL.  FIX 

DATA  LARLF/  4HVARIAR,  4HT0TAL  .  6HFIXE0  . 

•  2HLE  .  2H  .  2H  2 

C 

C  INITIALIZE  VARIABLES 

JYK=lYR*IBY-l 
JNi)=  1 

IF  ( 1  NO . FQ. ALL  >  J9D  =  ? 

IF  ( I9Q.E9.F1X)  JNO=J 
C 

C  PRINT  RE  9.  FOR  I  HE  FORCES  ANO  FORCE  SUPPORT  AREAS.  SEPARATELY 

00  250  K»t,T 

■TRITE  (6.90)  (LAOLE(JNO.I).t»  1.2I.JYR 
WRITE  (6.200)  (NAMECK.J).J»I. J) 
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Hi  100 
115100 
i  1>2J1 
U'jIJI 
1 1  i «.  0  ■» 
U55jo 
1H60J 
ltj/00 
115101 
1 15900 
IU0J1 
116101 
1 14201 
IlttlOl 
116600 
1 1 o500 
116600 
1 10/00 
lloOII 
llb)01 

n/ooi 
11/100 
11/2 00 
11/101 
11/451 
11/500 
11/611 
11//11 
11/401 
1 1/100 
n  sooo 
11 0100 
1 1 a/00 
11c*  300 
1 1  a  600 
110501 
1 1 060  1 
1 lo/Jl 
110001 
110101 
111000 
11/100 
11/201 
11/10) 
1114*1 
11/501 
1 11401 
111/00 
linoi 
111/01 
120  001 
120100 
120200 
120  SO  I 
120400 
120500 
1706)0 
120/01 
12U4J1 
I2w900 
121301 
121100 
121200 
121100 


)  format  (aox.ias/) 

Mil  IF  <6.  IOC) 

00  210  (-Win 

00  270  J=l*9 

)  YARRC0(I,lO,K)  =  YARREQ(W10,K)frYAKRCG(WJ.K) 

WRITE  (6*110)  1RATEU  >.  JR  I T  Ft  I  >  .(  Y  ARkEOI  I  .  J .K  > .  J  =  1 .  1  0 > 

0  cnuiur 

00  240  J*l.lO 
00  240  1*1*110 

i  VARREOC  11 1*  J.KWY  ARRFKlll,  J.K1.V  ARREO(  I*  J.K) 

MRITE  (6.120)  (VAHHC0(IU.WK).I*1.10> 

>  CORTI  RUE 

WRITf  ALL  RADY  TOTALS 
WRITE  (6.10)  ( L  ABLE  (JN0.I),I  =  1.2),JYR 
MUTE  (6.  200)  (  NAMEd.J  >.  J*  1.  I) 

MRITE  (6.100) 

(OTAL=0.0 
UO  23  1*1.110 
00  13  J= 1.1 

ril  AL  =  TO  I  AL/RAVItEK  W  J) 

)  NAVREa(W10)*RAVRE3(l.l0>»NAV0E0(l.J> 

MRITE  (6.110)  IRATE(I  ).JHUE(  I )  .(  N  AVREO(  I  .  J  ).  J*  1  .  1 0) 

)  LONTIRUE 
on  ij  j»i.i o 

00  Jj  (=1*110 

)  NAVACSC  1 1  l  *  J)* HAVRE  0(  11 1*  J).NAVREO(  I.  J) 

WRlft  (6*120)  (RAVREJ(lll.I),  1*1*10) 

PRINT  PERCENTAGES 

WRITE  (6*90)  (LA8LE(JN0.I).I*1.2).  JYR 
WRITE  (6. 150) 

00  41  1=1*110 

)  RIPE RC( I)  =  ( N AYR E0( I* 101/101 AL )• 100. 

00  50  1*1.16 
J=1  ♦!/ 

K=l*/4 

WRI  TC  (6*  1 40  )  lRATE([l*RAYREO(I*tO)*RTPERC(I)*IRArE(J)*NAVREa(J*l 
•  0  ).  R1PERC(  J).  HATE(K).NAVRCO(  K.IO).RTPERC(K) 

)  CONTINUE 

WRITE  (6.  140)  IR4TEC  S/)*NAVREO(  3/*  1  0)*  RIPER  C(  )/)*(. 1ATE(/4)*NAVRE0 
•(/4*10).HTPERC(/4) 

WRI  TC  (6.10)  (LABLEUNO.I  >,1*1.2). JYR 
WRITE  <6, 1 5  C ) 

0.1  60  1*1*9 

PIPE  1C*  (N«YREO(  1  11,  D/TOTAL  )•  100. 

J=10-l 

WRITE  (6.160  J.NAVREQClll.n.PGPERC 
3  CONTINUE 

WRI  TC  (6.1/0) 

ST0TAL=0.0 

00  /•)  1*1.6 

/  Sr0T4L*5r0T>L»NAYRE0(lll.t) 

PGPCRC*(STOTAL/TOIAL)*100. 

WRITE  (6.100)  S TO TAL.PGPERC 

STOT1L*0.0 

1)0  no  1  *  /  ,9 

3  STUTAL*STOTAL»RAYREO(lll»I) 

PGP€RC*(  SUIT AL/TO TAD*  100. 

WRITE  (6.190)  STOTAL.POPERC 
RETURN 

J  FORMAT  (1H1//40X.A6.A2.29H  ENLISIFO  REOUI REMENTS  FOR  FY.I4/) 

J  FORMAT  (1HO,61X,AHPAYGRADC.45X.6HRATIRO/9X.6HRATXRG.5X./X»1I1£*9,/X 
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1  214  30 

l  21501 
121630 
1'IM) 
HHI1 
»?»  301 
l  » 

I  2210  > 
12223) 
1221)3 
12243) 
122530 
l  2260) 
122/  ) ) 
12210) 
122  >11 
1  21331 
1211 31 
121231 

121  m 

1214  0) 
12153  1 
1216  31 
121/3) 
1211 > 1 
121 >J 1 
1240)1 
124 l 01 
1 2  4  23 1 
124 133 
1244  3) 
12453) 
124631 
124/ j3 
124131 
1241H 
121031 
iziiao 
1212)1 
125111 
12543) 
1255  )  I 

1215  >3 
125/0) 
12513) 
1  2s9J3 
1  2  a  0  3  ) 
12a 1J ) 
12623) 
126  1)1 
1  2  a  4  3  ) 
126533 
12661) 
12a/ 3  I 
126100 
1  ?o  9 3 1 
12/3)) 
12/133 
12/2)0 
12/  1)) 
12/430 
12/5)1 
12/630 
12//33 


••  ME-  J.  /X.1HE-/./X.SMC-4./X.  ]HE*S»/X,SHC-4,rx.  JHE-i.FX.  Jitf-2.EX.iH 

•  E-l.  >X.  5rtl  Jt»L/  ) 

110  FOl  HI  ( /*.  11,  1  X.  A4.4X.  10F  10.0) 

1?)  FORMAT  (/X.2HPAYGRAQE/10X.5MTOTAL.5X.IQFIO.0) 

113  FORMAT  (SJX.UHSUNNARY  TAflLC///  T(7X.6MNAnNG.4X.SHT0TAL.4X./APERCE 
•'I.FX)/) 

143  FORHT  (  1(  9X.  A  1.  4X.  F6.  J.5X.F5.2.AX  >  ) 

153  FO/NAT  (  sf)X  .1  JHSUMHAAY  I  A3L  F/ //4ZX  ,  BrtPA  YGRA  OF  .  1 X  -  53  T  0  TAL,  5X  ,  202  E 1 C 

•  f  31/) 

16')  FORMAT  (  1H0. 44X.ZHE-.  II  . 2X . F« .0 » 5 X , F 5 . 2 ) 

I/O  f 00  MAT  (//) 

150  FORMAT  (1H0.4IX.4MP.0..2X.F8.0.5X.F5.2) 
l»t>  FORMAT  ( 1H0.41X.8HN0N  P.n..F».0,5X,F5.2> 

E  NO 


subroutine  cppnxt 

coin, IN  /Al/  AASICK5).  IND.IYR.  FIXR.  ILJS.NXEAR. 

•  P<XPC(/»16.2».  WASTEZUT/l.  a4sTEJ(6S1>. 

•  AASTE4<  111.10).  OASE(/>.  V  « F j ( 1 l 0.0) 

CO“M;)N  /FILES/  lUSF.IUAr.lUURl.IUUAJ.IUSJ. 

•  TUSil.IUAD,  IUHO.itmF.iUHAF.IU¥R.IU»A. 

•  IUEPA.IUQUT.IUST.1U1N.IUPH.I8Y 

COMMON  / 1 4/  NUS.  NUSPCUO.il).  NUSPXOG./J.  YPCUSOO).  CURNTC /.  16) 

00  50  !YK=1.MYEAR 

:  ICAO  TJTILi  FOR  BASE  CASE 

’(£40  (  I  US  T.  IDO))  3ASE 
1303  FOR  NAT  (/FN.O) 

:  compute  percentages 

3)  4  0  m.r 

PRXPC ( I , I YR.l )=(CURNI( l .1 YR )-BASE( 1 ) ) /rt  4 SET  t ) 

49  PRXPC (  1  .  IY3.E)*SASE  1 1  ) 

53  COsTl'IUC 
,<EIU  <N 
E  NO 


SUBROUTINE  CPUsERC IPE.VRE3) 

COHHQN  /II/  RASTEK5).  IND.IYR.  FIXR.  IL0S.NYEA3 . 

•  P (XPC( / » 16. 2 1 ,  A AST E2 ( 41/),  RASTE  1(661), 

•  AASTE4( 111. 10).  NASTF5C 1  11.  10./ ),  A  A STE6 ( 1 1 0. 9 , 11 ) . 

•  FRL0<110»9> 

COMMON  / 1 4/  HUS.  NUSPECIC.ll).  NUSPXUO./).  VPCUS(IO).  CURNH/.16) 
DIMENSION  V PE  1(110, 9) 

■NAM  THE  V  4R I  AdLE  ARRAY  ZERO.  NO  NATTER  AHA  T  HAPPENS 
03  5  1=1,9 
(10  5  jNl.110 
5  X  >£  3C  J,  l  )  =  0.1 

IS  THIS  PE  FI)  OE  NAOE  VARIABLE  (FIXEO  IN  THE  NARN1? 

IF  SO.  THEN  ADJUST  IT  BY  THE  USER  PERCENTS  A  HD  PROXITS 

30  10  I  =1  ,1  C 
DO  13  J’l.NUS 

IF  ( IPC.EQ.NUSPEC  J»  I>>  GO  TO  15 
13  CONTINUE 
RETURN 
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12/101 
12/900 
1 2  JO  JO 

12  u  n 

12,»/4>  1 

i2iin 
1206J9 
171500 
120609 
121/03 
12.103 
1219)3 
129  0  03 
129109 
179201 
129100 
12)4.01 
12  <30  0 

12963  ) 
129/01 
129100 
12990) 
1  3000.) 
1  10100 
1 1.1201 
1  10!  JO 
I  10100 
UoiOl 
1 106 JO 
1 10/ JO 
1 10100 
1 10900 
1  11  000 
1 11100 
111203 
1  It  199 

i  moo 

1 31500 
111600 
l  II '90 
1 11100 
111900 
1  12110 
112103 
1  122 )1 
1 12101 
1 12103 
1 125  II 
1  12600 
112/00 
1 12103 
1 12900 
1 11003 
111103 
1 11201 
HUjO 
1 11600 
1 11501 
1 116)10 
111/01 
1  JiSi.1 
1 11900 
116000 
116100 


C 

C  COMPUTE  THE  PERCENT  ACE  CHANGE 

15  X*VPCU3(  1 1*1)1. 

WHITE  (  6  *  IOC)  NU$Pf(J.I).  X 

1.10  F  O.T  *46  f  ("9  PE  *.16."  15  ilEING  HADE  ".F6.2."  PERCENT  VAR  1 A  RLE"  ) 

x-o 

PC*0 

00  7)  R= 1./ 

L =NUSPX< J  ) 

ir  (L.C0.3)  GO  TU  10 

PC*PC  *PRXPC (L  » l YH. 1 )»PRXPC(L» IYR.7) 

20  X*X<PRX?C(L.IVR.2) 

S3  “C-T2C/X ) 

X*PC*103. 

WHITE  (6.110  X 

110  FORM*!  (*  ITS  PROXY  CHANGED  “.FA. 7."  PERCENT"  > 

C 

C  F 1  90  THE  HARM  TOTAL  E  NOS  TRERG  TH 

CAlL  SDH  (FREO.XT) 

WRITE  (6.120)  XT 

120  FORMAM"  TOTAL  EHOSTRENGTH  IS  ".F12.2) 

C  FIM3  THE  PFHCEHT  VARIABLE.  AS  OETERWlNEO  BY  THE  USER 

AV-xr»VPCUS(J> 

WHITE  (6.110  XV 

110  FOH-VT  ("  RASE  CASE  VARIABLE  ENOSIRf'IGTH  IS  *.FI2.2) 

C  C3MBJTE  THE  NEW  FIXED  EROSIRENGTH 

XF  =  XT  ~X  V 

WRITE  (6.160  XF 

160  FORWIT  ("  FIXEu  ENOSTRERGTN  IS  ".F17.7I 
C  HHiOIFY  THE  VARIABLE  ERDSTRENGTri  10  REFLECT  THIS  RUN 

XV=X/i(XV»PC) 

WRITE  (6.150  XV 

150  FORMAT  ("  CURRENT  CASE  VARIABLE  ENOSTRERGTH  IS  ".F17.7) 

C  USE  THE  QUALITY  OF  THE  TOTAL  RFO.  AMD  SCALE  IT  T1  THE  NEW 

C  VARIAuLE  erostrergth 

SCALE*  XV / X I 

an  63  j* i . 9 

JO  60  K-l.l 10 

60  VREO(X.J)»FREO(K.J). SCALE 

C  USE  THE  OUALITT  OF  THE  TOTAL  REO.  AND  SCALE  IT  TO  THE  FIXF3 

C  ENOSIRENGTH 

scale=xf/xt 
on  59  .1*  1 . V 
JO  50  1*1.119 

50  FREQ(K.J)=FRE9(K.J>*SCALE 
C 

RETURN 
l  NO 
C 

c* ****** . . . 

c 

SUjROUTINF  SJH  (REO.X) 

DIMENSION  HEO( 1  to. 9) 

X«0.0 

on  ij  j*i.» 

00  19  l  *1 » l  1 0 
10  X*X  MEW  (  I»J1 
RETURN 
END 
C 

. . . . . . . . . 

c 

subroutine  cpfixr 

c 
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1  <9  •  )') 
1 SA  SJO 
t  HO) 
1  5  <1 5)  0 
1  S4SJ0 

i  sa/jo 

1 54  I  >0 

1  lull 
i  Sb  000 
Hi  l  JO 
15HJJ 
1  5  j  5  )(' 
1  5  V.  J) 
i  J  )  i  J  0 
l  SjbO) 
1  S>/J'J 
1  Ji  JJJ 
1 5>9j0 
1  SbOJO 
1  Sot  JO 
1  Jo i  >  J 
ISoSJ) 
1  So'.  JO 
t  i  o  i  )  0 
l  Sab JO 
l  Jo/  JO 
t  5  o  -3  JO 
1  So J  JO 
1  S/JJ9 
1  S/10  J 
1  5/2)1 
1  S/S  JO 
1  S/4J  J 
1  J/S)  0 
1  5/ 6  J  ) 
1 J/ /JO 
t  5/  300 
1  S/9  J  J 
1  id'JOl 
l  S  J  l  J  ) 
i  S3 JJJ 
1  S  J  S  J  ) 
1  50  4  JO 
1  $J jjo 
1  SrtbO) 
1  SJ/JO 
l  SHOO  ) 
i  5  >  9  JO 

l svooo 

t  591 JJ 
1  5  9  ?  J  0 
t  5 J  509 
1  S94J1 
1  5  9  0  J  0 
t  $  /SJO 
1  S//  10 
1  59  JJO 
J  5/  >0) 
1'.  JO  JO 

1.0  t  oo 

1  40? 00 
l'.JSJJ 
149400 
14)500 


C  COMPUTE S  FIXED  REQUIREMENTS  BY  PE  BY  SUfllRACIING  THE  VARIABLE 

C  ONES  JUS!  COMPUTED  FROM  THE  NAHM'S  TOTAL  ONES 

C 

COMMON  /»1/  H  A  S  T  E  (  5  J.  INO.  IYP.  FIXR.  ILOS.  N YE  A  R  » 

•  BASTE  1(  bbl  > >  4 A3 T £ ?(  561  J. 

•  NAVRt'Of  11  I.  10), 

•  riXREOC  111.10./). 

•  REPORT! JOO. 1 />. 

•  VREO(110.9),  TRFOdlJ.V). 

•  PROXPCl 5. lb).  PRXTUTt/.lb).  TOIAL(/J 
COMMON  /FILES/  IUSF.IUAF.fUUHt.IUUHe.tUS9. 

•  IUSD.I UAD. lURQ.lURSF.lUKAF. IUVR. IURA. 

•  I'JEP  A.  IUOUT.  IUST  .IU1N.IUPH.IBY 
CD-SHUN  /ID/  VSPTC95).  K  f  Y  {  9  S  )  »  NVPE 

INTEGER  SKIP 
REAL  NAVRFQ 
C 

MPE  =  S0  9 

ILY  =  IHY»'IYEAR-| 

00  2  1  =  1.  lo 
UO  2  Jst.F 
2  t*RXT  JK  J.I  >=0.0 
C 

C  LOUP  ON  YEARS 

UO  1/4  lrR=l,NYEAR 
00  4  [=1.MPE 
4  HEPOIK I,IYR)=0.0 
JO  b  1=1./ 

PIT  ALC 1  )=0.  C 
00  b  K  =  1 , 1 0 
00  b  1=1.11 1 
b  F  IXREO!  I.  K.  l)  =  0.0 
RPf  =  0 

MRI  TC  f  b,  HIP)  1  YH 
SKIP=C 

DO  10  J=1.1C 
00  tJ  1=1,111 
10  NlVRESi!  I.  J)  =  0.0 
C 

C  HEAD  the  variable  reouirements 

29  READ  (1U/R.FN0=140>  IPE.VRE9 
IF  (JPE.E0.990J99)  GO  tO  1A0 
C 

C  IFAD  THF  TOTAL  REQUIREMENTS 

SO  IF  (iKIP.NE.O)  GO  10  AO 

READ  dUH0.2lO.ENO=ISO>  JPE .  1 . 1 1  TR E0(  I .  J  ) .  J=  1 . 9  )  ,  I  =  I  .  1  I  0 ) 

IF  ( JPE. ED. 990999)  GO  TO  ISO 
C 

C  COMPARE  PE'S 

AO  IF  ( IPE-JPE  )  SO. /O.  120 
C 

C  JO  TOTAL  IE 0 .  FOR  1PE 

SO  CALL  SUM  1VHE0.M) 

UO  60  J= 1  .9 
00  bJ  1=1.110 
V U  0(  I  .  J  )  =  •  VHE'IC  1  •  J  ) 
bO  NAVREOC l. J)=NAVRE3C I.JJ'VREOS l.J) 

NP=NSCANX(VSI*T.  NVPE.  I  PE) 

IF  (NP.fJ.O)  GO  TO  bS 
NP-KEY(NP) 

00  62  K= 1 . 9 
UO  62  J=l.l  10 

62  FI XREOf J.K,NP)*FIXREJ<  J.K.NPJ'VREOl J.K) 

PRXTJUNP.I  YR)  =  PRXI01{NP.IYR)»B 


t  <i  0603 

66 

WRITE  (IUnUT.910)  IP1.lYH.VRtO 

iwni 

NPE*NPE*l 

UjiJI 

IF  (  1PE  .(IT.  NPE  >  CALL  IHRdRtJO.H PE. HPE. 0.0.0) 

140)00 

HEPQHHNPE.  1/)«1PE 

141031 

IFpORTl NPE. ITRMIQO. 

ium 

S  H l P=  1 

1  4  1  >  J  J 

if  (3.vf.o.(1)  40ire  16.190)  ipe.w 

141  I  JO 

30  n  20 

141'.  J  1 

c 

141 jj) 

c 

HATCHING  RE  S 

1  416  03 

/J 

CALL  SON  (1RF0.X) 

141/0) 

CALL  $09  (  V  RE  0 .  V  ) 

14  1  U0 

MPE=NPE*1 

1  419  01 

IF  <.<PE.bT.MP1)  c  ILL  1 1RUR123.M PE. MPE.0.3.0) 

1 42)03 

REPOIT(NPE.l/)*M*E 

142101 

IF  (X.UT.0.0)  REPORTINPE.IVRWY/XUK'O. 

l 42?o0 

IF  (X.LT.Y)  lfPQrtT(NPE»lYR)=lOO, 

l 42  SoO 

NP  =  NSCANX(VSPT.NYPE.  1  PC  3 

1  4241)1 

IF  (5P.EU. 0)  GO  10  /) 

14>5J) 

NP=KEV(N|*> 

1 42500 

PPX  T  Oil  NP  .  I  YR)  =  PRXI<U  (NP,  t  YR  >  <Y 

142201 

IOMlI  <P)  =  [014l(NP>«X 

1 42403 

/  1 

CONTINUE 

142103 

W  =  V*X 

141030 

IF  (  W  .G  T  •  0  )  <11  IE  (6.  200)  IPE.M.X.Y 

14  11)0 

4=“W 

14 J2J) 

IF  (X.EO.O.C)  GO  IJ  90 

141130 

SCAL1=W/X 

143403 

00  n  )  J  = 1 .9 

14  ISO  ) 

an  no  ui.uo 

14140) 

VREO( I, J  )*|RE8< t . J ) ‘SCALE 

143*00 

rl  J 

NAY  1EQ1  l  .  I)=M»WRE01  I.  J  XYREOl  I.  J) 

1  4  3  30) 

GO  10  110 

141900 

90 

00  100  J  =  l  ,  9 

14400) 

on  ioo  i=i,iin 

14410) 

YHEUC  I  .  J  )  =  -V'»13(  I,  J  ) 

1  44?00 

100 

NA  V  RE  0( I. ))=NAVRE0{ l.J )♦ VOEOl I. J ) 

l 44 100 

110 

IF  (HP.EJ.O)  GO  10  UR 

144400 

on  114  J=  1 , 9 

144503 

00  114  «*  1.  110 

1446  >3 

114 

FIX9t0<X,J,NP>=FIXRE8fK.J.NPX4RE0(K.J> 

144/3) 

11  1 

WRITE  Ciunul.210)  IPE.IYH.VRE8 

144  >03 

5  K I P=  0 

144  0) 

60  IJ  20 

143)3) 

c 

1'olJ) 

c 

NO  VARIAOLE  KFUUIRENENTS 

145  203 

123 

WRITE  (IuniJT.210)  JPE.IYR.IREO 

146100 

NP£=NPE»l 

1  4  o  4  u  3 

IF  (>)*>£. (IT.  PPE)  CALL  FHRORl  20. NPE.  MPE.  0.  0.0  ) 

145  101 

NP=NSC4NX(VSPr.NVPE.  JP£) 

145600 

IF  CNP.F8.0)  GO  rn  12B 

145/33 

4P  =  5CYf  NP  ) 

145  1)3 

CALL  SO«(IRF).X) 

145)30 

tOIALI NP)=1 OTAL(NP)»X 

I4o30> 

00  122  J  =  I . 9 

1 4  o l 00 

00  122  K *  1  *  1 1 0 

144200 

12? 

FIXRC01 W, J,  NP)  =  FI  XXF8CM,  J.  NP  )  <  T  RE  l)(  1 .  J) 

l4o!  )0 

123 

CONTI  SUE 

14943) 

REP0»T(NPE,1/>«JPE 

1 4u  5  J  ) 

,«EPORT(NPE.  IY*>«0. 

14660) 

SMI P3  0 

146/03 

00  133  J  =  !  #  9 

149007 

<30  1  JO  1  =  1,1111 

146900 

130 

NAVRCC(I,J>«NAYREQ(I,J)»1RE0(I,J> 

B- 101 


lwooi  go  i j  in 

I42ld1  c 

1V/20)  C  t NO  UF  FILE  UN  UN  1 1  IUVR 

14/5)0  IU  IF  (JPE.F3. 9)9)9999)  GO  10  160 

14X4))  IPf  =  )9  <99979 

1 4  2  5  )  0  GO  T ‘1  5  9 

142  >))  t  EM  .IF  FILE  UN  UNIT  IURQ 

14/20)  150  IF  (  1PE  .1  0. 9)9)9  #•»•»  )  GU  TO  160 

14210)  JPE=>999  )999 

142)09  GO  TO  40 

14  1)00  C  LNU  OF  YEAR  IYR 

l4ot.)1  160  IPE  =  1  999  )9 

1 4 ,2 J  )  »HI  IE  IIU0UT.21Q)  IPE.IYR.VTE!) 

l4)5o)  CALL  PRINT 

1  41)  4  0  )  C 

146)00  C  COMPUTE  THE  PERCENT  VAN  I  MCE  FOR  EACH  PROXY  AREA 

i4.>5o9  i/o  uo  i tz  1  =  1.0 

14->2u1  1  't  PHOXPCI  I.  IYII>  =  (  PRXTOK  I  .  I  YR  )/TUT«L  (  I  ))*  100. 

r.il))  12*  CONTINUE. 

141)))  WEr  I  TO  IU3UT 

1  4  9  9  UO  C 

14)10)  C  PRINT  THE  PERCFNI  OF  E»CH  PE  WHICH  IS  VARlAiLE 

14)2)0  NL=  I  >9 

14910)  JO  250  1  =  1. NPE 

14)4)1  M=NL  *  1 

14)5)0  IF  IM.LE.2P)  GO  IU  250 

I4)'i00  NL=0 

14) 2)9  <rRITf  <6.220  <J.  l=IdY.ILY> 

14900  22U  F  0  R  M  A  T  1 1  Hi  . "  VAR4IULF  PERCENTS  OF  PROGRAM  ELEHENTS  3Y  YEAR" 

14D01  •//4X.2HPE.5X.I6I2X) 

ISuO.OO  25)  WRITE  (6.240  RCPOR  T<  1 .  1 2  )  .  C  REPORT  <  I  .  J  )  .  J  =  1  .N  YE  A  I  ) 

15) 100  2  41)  FORMAT  < 1U0.1X. 16. 5X. 16F2.2 > 

1 5020  )  C 

150500  C  WRITE  I  HE  PERCENT  VARIABLE  On  01  SK  -  IUST 

15)433  IF  <<TEAR.GF.tS)  SJ  10  243 

15)50)  00  246  1  =  1.5 

15u503  00  246  J  =  NYEAR*  l.  lb 

1502)0  246  PRUXRCt  I,J)=PR1XPC(  I.NYEAR) 

15JM0J  24b  oO  ISO  1=1.5 

15J)0I  250  WRITE  (IUSI.26J)  <  PRUXPC  (  I  .  J  )  .  J  =  l  .  1  6  > 

1510)3  250  FORMA!  (1GF6.21 

1)1133  C 

151233  C  WRITE  IHr  V  A  R  I  A  !  L  E  IOIAI.S  ON  (USX 

1515) 0  IF  ( NYE AR .GE. I  5)  GU  10  26# 

15  I  40  3  00  266  1  =  1,2 

1115  )3  00  236  J  =  NYF  AT.  1,  1  6 

1516) 0  266  PRAT  ITT  I . J)*PRX TO! < I.NTEAW ) 

151200  264  00  220  1  =  1. lo 

1 5 i ft JO  22o  «HII£  <IdiT.2#d)  ( P RX TU I < J, I ) . J= 1 . 2 ) 

1519))  290  FORMAT  (2F9.0) 

152(000  CDS!  <  IUS1  .01  SP  =  CRU.<CH) 

15210  )  ME  |  u  IN 

152200  G 

152  500  l»0  EORMAT  <1H1  .  5X.  4MY£  AN. I  J) 

1  524  ))  Du  FORMAT  (JOrt  NO  TOTAL  NEOUIREMENTS  FOR  PE .  I  2.5X  .FI  ? .  2  ) 

1525J0  200  FORMAT  CO  VARIA.lLt  REOUIREMENIS  EXCEEO  N  A  RM  TJTAL  FOR  PE  '.16. 

1  5  2  6  0  0  •  "  6Y  ".F4.0.4X.*  TOTAL  *  FI  0.  0.  5  X  .  *  V4RIA3LF  =  -.F10.0) 

152211  210  FORMAT  (  21  6  »  990T  6.  I  > 

1525)0  CNU 

152900  C 

155)30  C»*******»**»*»»» 

15510)  C 

155200  SUUROU  TINE  AOOFIX 

155  500  C 
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15  JAJ1 
I5J5JJ 
15160) 
15  ;7  n 

1  SH)1 
15  (90  ) 
in,)}} 

1 54 l JO 
l >4203 
1 54  J'oO 

154400 
154500 
154»J) 
154700 
15-«  400 
1  (4)1) 
15jOOO 
liolJO 
l5, 7)1 
1  5>  VJ  1 
15j4J  ) 
15  i  5  J  1 
15j500 
1 557  J  0 
I  5  >  5  1  J 
15/  >0  ) 
1 5o J  JO 
1 5  o  1  0  0 
1552)0 
i  join 
156400 
1 5u5 J  0 
1 5uoO  0 

1 5o7 j) 

156500 
1 5u 0  )0 
15/00) 
157105 
1572J0 
157  10) 
15740  ) 
1575  J) 
15760) 
15770) 
15760) 
157  0)0 
156000 
15 il J  ) 
15U2J  ) 
15)  100 
15  J4  n 
15650) 
1  5  o  5  0  0 
15070) 
15  j  10) 
1569)0 
15/00.) 
15/10) 
15)200 
15/ JO) 
15/400 
15 /5J  ) 
1 5/400 
15/70  ) 


C 

C 

C 

c 


c 

c 


c 

c 


c 

c 


c 

c 

c 

c 


c 

c 


AOJS  rut  r||(i)  ENLISTED  REUUIREWENTS.  »A  T  MG/PAYGNADE. 

to  THnsE  cdvuied  by  the  enrep  hodfi 

AND  CONPuTES  VAPM6LE  REOUIRENENTS  FOR  THOSE  PE  THE  USER 
HAS  HADE  v,vT!  A  <LC 

CONNON  /  A  l  /  4  ASTE  (  5  )  t  1  NO  r  IYR.  FUR.  ILOS.  NTCAI, 

•  P)APC(7.16.?>.  WASTF2(J2R).  PRH REX  l  11 . 7  ). 

•  NAY «C  QC 11 1. 10)# 

•  TOIHEX  111.10,7), 

•  WASTE  5(  110.  9. 11). 

•  F9ta<tl1.91.  V«E0(lt0.9>»  UVREOdl').)) 

CO'INUN  /  A  2/  NVFS(5.15).  0VFSC5.15),  FIXP;T(16> 

CONKON  /  AO/  Y  5P  T  (  05  )  ,  Ki.Y()5>,  NYPF 

COMMON  /FILTS7  IUSF  .  J  UAF.  I  UUn  1.  I  UUR  2.  IDS). 

•  l U 50. I UA 0. ( URO. I  UK SF. I  UR AF, I UVR, I  UR A. 

•  IUFP  4.IU0UT.  IUSI  .1UI  N.  IUPH.I  8T 
I  NT  EGER  VSPT.  SKIP 

REAL  N  Yr  S •  NAVREU 

IF  C  NYE  AR.GE. 7)  RFHINO  IUFPA 

HI-  IUR3 

LO.IP  ON  YEARS 
Oil  l  >0  I  Y  R  =  1  .  NYEAR 
«»ITE  (6.170  I  Y  R 
IT  (IYK.GC.7)  I  U=  IUEP  A 
SKI  P-l) 

DO  10  J*l.lC 
00  10  1*1.111 
NAYREOI I,J>*0.0 
00  10  K *  1 »  7 
10  niR£3(  I  ,  J,K)*0.0 

(E  A  0  VARIABLE  RFOUIREMEN IS 
20  HFAO  UUVR.rNOMJO)  IPE.YREC 
IF  (IPE.EO. 9/999/)  50  TO  1J0 

REAR  riXEO  RC9U  Ii(E  NFS  T  S 
JO  IF  (SKIP.NE.O)  GO  10  50 

REAR  ( I U. I  90, END* 14  0)  JPE.I.FREO 

IF  (lYH.EQ.S.ANO.NreAR.GT.S)  WRITE  IK/EPA.190)  JPE.IYR.fREO 
IF  (JPE.E). 991  )99)  GO  TO  140 

COMPARE  PE'S 

50  IF  (IPE-JPE)  60.80.110 

N'J  FI  <C0  RCOUIrtENENTS 
60  WRITE  (IU0UT.190)  IPE.IYR.VREO 
SK I P  *  1 
UO  70  J  =  1  »  9 
00  70  1=1.110 

70  NAY  REX  I»J)*iNAVREX  I.J).»RCB(  I.  J) 

WRITE  (6,180  IPE 
NP=N$CANX(VSPT.NVPE .IPE) 

IF  (NP.EO.O)  GO  TO  20 
VP=KEY(NP ) 

00  72  .1*1,9 
00  72  1*1,110 

72  !OrREQ<  I.  J.N.»)*T0TRF0(  I.  J.NP;  ♦VREO{  l.  J) 

GO  T)  20 

HATCHED  PE'S 

80  WP-NSCANX(YSPT<1).NYPE.JPE) 

A00*0.0 

IT  (NP.EO.O)  GO  TO  90 
J*KFT(NP) 
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•»  i  M  ) 

o  j  .)  n 

>  it  » > 
» >  /  n 

•> )  \  j ) 

>  j  i 
tj'i  )  ) 
S.»  »»*j  J 
t>  i  f  J  ) 
lilj.) 
«>  >  >  )«1 
v>l  U  ) 
SI  10) 
M  *U0 
.1  *  )  ) 
<»  1  b\j  ) 
hit  I  I 
.  I  .  )  > 

s|M» 
.  i  t.>  ) 
•»  i  ^  ) 
•.  •  )  >•> 

• .  '»  *  ) 
.  '.'J  ) 
•./  \  >  ) 
»  '4  )  ) 
•  *  •>  )  » 


*.«•  p  j  i 
»«  J  ) ) 
.  .  4  )  > 

•ii  ) ^  J 
**'#*>> 
S  •  f  J  > 
<»<•  UJ 
i»  4  t  I  I 

•.  n 

*»  »  i  >  > 

h  >  y  )  > 

t,  >  \  >  ) 
.  »  4  J  il 

S  V> 

•)  It)  )  ) 

>>  f  J  J 
'*  >  10  ) 
..)H 
#  Sr>  J  )  ) 
1  ..»t  )  ) 


if  ( Nvr s (  j.  iyh  j.nf .nvr i< j.i  nil  *o  j*k nvfsi  j.  iyh  >-ovrsi  j.  mi  >/ 

•  ( i.o*Nvrs(j.iYR> )» 

->»  uo  no  j*i.h 
Oil  100  1*1.11) 

t  HI  ')(  1  »  J  )  « I  H  l)  (  |.  I  )  *  (  F  H  0  C  1*  J  >•  AO  J  ) 
fu  m  i.  J)*rRCO(  i.  ji«f ixpctc  iriMFRf oil.  n 
I  HE  U I .  I  >  >1  *)f  )<  t  »  J  )  HKOI I .  J  I 
103  N  A  IMF  01  I  *  J  )  •  <9  A  7  R£  Ql  I.J)OiUI(I.J) 

■  mi  uuout.no>  jPC.iYH.rncQ 

j  A  1 P  ■  0 

if  <NP.ro.oi  au  in  ?o 

sf  M Y l NP ) 

JO  ID?  .1*1.3 

1)0  10?  1*1.110 

io?  lomroi  i .  j.np)  *  tut  hi  oi  i  .j  *mp>  »fri  o<  i  .  j  ) 

uo  to  ;*o 

00  VAH|  •  It  l  Ilf  OUI  'll  MINIS 
111)  CALL  C-*USF:«<  JPf  .U9HF0) 

S  K  I  P  •  0 

UO  I?)  I  1.3 
JO  l?n  I  l.lll 

I  '•(  )(  I  .  J  )  I  HI  01  I  .  J  )  >1  UPl  I  l  I  Y  II  )•(  Kt  0(  I  -  J  )  •  UVHF  J  (  I  .  J  ) 
l.’u  NAJKI  DI  |.  I)  nlWIHOl  l.J)*FrtlQ(  I.J) 

«uir  iiuoui.ioo)  jpt.i  Y.*.i  nro 
r»P**ISCAN*<VSPt»N9PF  .JVl  ) 

IF  (NP.I 0.01  00  10  5  J 

VI*  •  11  Y<  Ml* ) 

Oil  l??  J  1.9 

UO  l  {.’  1*1.1  10 

1  ??  I  01  RF  <><  l  .  .1.  A.*  >  T  0  T '!  f  J  <  I  .  J  .  NP  J  *F  Of  0<  l.J) 

.0  10  10 

F  NO  OF  rill  ON  V  A  *1 1  All  I  f 
M3  If  (  m  .( 0.  99P79999 )  CJ  JO  ISO 

I  IT  *9 99*) *#999 
00  IJ  ll) 

F  NO  Of  FI  I  f  f)v  F!  XI  I) 

1*0  If  <  II*!.'  .F  0.  93999999  )  00  10  1*.  0 
JPf  >999  9)3  9 
00  TO  >0 

INI)  OF  Yl  AH  I Y  •« 

ISO  |pf*90»999 

•INI  T{  (  10  OUI.  19  0)  |  I’f  .  |  Yll  .  F  Ml  0 

ir  (  I  YH.v.r.6.  A.VO.NYFAO.  (if  .  h  )  Hi*  HIND  1IJIPA 

PHINI  I  Hill  P  IOIAI  KCOUinCMFNIS  FOR  101s  Yl  A‘t 
CAM  **K  I  *1  I 

Hit  IF  HL  00 1  Ml  HI  II  T  j  ON  OlSK  FIH  PHOPUFf  SYjirv 
CALI  PHOPHKl) 

II  Oljinro.  I  tl  AH  Si  All  FHON  KAl  I  NG/PAYGHAnr  10  IIAIINJ/llS 

II  (  IlUS.rQ.0>  CAll  fOMOSI?) 

16J  tONIINUf 

urn  l  NO  I  OHM 
HE | UNN 

I/O  F  O.IMA  I  (tHI.IX.AHYEAI.il) 

140  FOnMAI  (.’111  NO  FtAIO  HI  )  I  OH  PF.IF) 

|9j  IOHMAI  ( ? I  6 . 990F  n . I  ) 

C  NO 


if>b?in  . . . . 

1 6a  S JO  C 

I6t.*0>  SU.HUUIINE  PK')PHI(INJC) 

liiusji  commun  /*i/  rastfes).  in o.  tyr.  rimt,  ilus.  nyear. 

16o60)  •  JUIEKSj?;,  PRUREai  11 0./ >. 

16o/J>  •  MAVREK  lll.tO) 

lsauo  common  / tc /  irateuio)*  jratetiu) 

iftbtoa  common  /rices/  iusf*iuaf.iuurt*iuur?.iuso. 

16/000  •  IUSD*I UAO* IUH8.1 URSF* ION AF. IUVR. I ORA. 

16/toj  •  iuFPA*iunuT»iusi .iuin.iupm.iby 

16/ZOO  OIMFNSION  KYRAir(lll) 


la/ 1J0 

DAM  K  f  R  A  T  E 

/  i . 

1. 

1  • 

1. 

l* 

1. 

J* 

0, 

0* 

1 S/AOJ 

• 

i. 

1. 

*. 

0. 

3. 

0, 

*  * 

0* 

0* 

0* 

1  6/S JO 

• 

i* 

1* 

J* 

0* 

0. 

t* 

l  * 

l. 

1* 

1* 

l 6/ 603 

• 

i. 

f)  9 

3. 

0, 

0* 

0* 

0. 

5* 

0* 

0. 

1 »//0) 

ft 

i* 

1. 

1* 

1  9 

1. 

I* 

1. 

1. 

1* 

1  * 

Inf  100 

• 

t  * 

1* 

1  * 

1  9 

t. 

1* 

1  * 

1* 

l* 

1* 

1  if  900 

• 

i* 

1. 

1  * 

1  9 

1* 

1* 

1  * 

1* 

1* 

1  * 

166000 

* 

i> 

1* 

1  * 

1  9 

l* 

l* 

T. 

0* 

0* 

1* 

i sat  03 

• 

i. 

t. 

1* 

1  9 

1* 

*, 

0. 

c* 

0. 

I* 

l 6&Z03 

* 

* . 

0, 

0. 

0, 

1. 

1. 

1* 

t. 

*. 

0. 

i  >  .ii  d) 

• 

0. 

3* 

1* 

1* 

1* 

1* 

1  * 

I* 

1* 

1* 

166*03 

• 

1  / 

1  6R  >0 )  c 

IbOoOO  IF  (INOC.Gr.l)  GO  TO  SO 

160/00  C 

1661.13  C  A  00  RE 1U I K  EMF  N  J  S  TO  PRH.TFO  F  OR  IH1S  YEAR 

lasooo  c  son  across  service  naungs  ro  general  ratings 

16/00)  IF  (TYR.CT./)  Of  TORN 

l 6/ l 00  01  10  1*1.113 

46/7, >1  Id  PRHRCK  1*TYR>*0.0 

IS/ldl  00  TO  1*1*110 

161*03  IF  ( TYKATF ( I ).F4.0)  GO  TO  JO 

1  6  /  >  J  3  00  70  J* 1 *K Y  1AI E (  l  ) 

l,t/6JJ  ?d  PRHREOt 1. I Y R »*PR rtRlOl l * 1YR )»NAV3F0( l»J- l. 10) 

t  >//  I)  JO  CdNTTNUC 

16/  101  RETURN 

16/100  C 

I/OOJI  C  M'lllE  REOUMEMFNTS  ON  DISK  FOR  PROPHcI 

1 /Old)  SO  00  61  1*1*1  10 

1/02)1  IF  (SYi(ATF<  |  l.EQ.O)  GO  TO  60 

1/oJdO  MRITE  ( I UPH  * 1 OOO )  IRATE ( l )*(PRHREO( I  *  J  )  *  J* 1  * / ) 

1/0*0)  1000  FORMAT  (ZX.A’./X./FN.O) 

1/OSjl  60  C  ON  T I  NOT 

1/oSOO  CLOSE  < IUPR*OISP*CRUNCH> 

1/0/0)  HE  I  URN 

i/osoo  r  NO 

1/0)00  C 

l /I  000  c 

1/1  TO)  C 

1/1/03 
1/1  TOO 
1  /  1'idO 
l/ISOO 
1/1601 
l /I/O) 

1/1  }J0 
l/l  )0  ) 

1/ZOJ) 

i/zm 

i /// 3) 

1/ZJ03  C 

1//600 
l/ZS ))  c 


SUBROUTINE  TNFCnS(lNOC) 

COMMON  /Jl/  mASTC(S).  TND*  TYR.  TIAR.  UOS*  NYlAR. 

•  OASTEU  10  0/  >.  A<  10.5/). 

•  NAVNEQT 111*101*  NASTEMlll.ld./).  1  R  AN>r  (  I  1  3*  9*  Jl  ) 

•  NAYCUS1 1 1 1 *  JZ  ) 

COMMON  /FILES/  TUSF.tUAF.IUURl. TUUR7.TUS3. 

•  IUSO.1 UAO. I  UR 1.1URSF . I  UR  AF . IUVR* l UR  A. 

•  I jrp  I. IUOUT. 1UST «1UI N. I UPH.I BY 
OIMFNSION  I  PROXY (110) 

COMMON  /AC/  HATH  l  10)*  JRATE(llO) 

NEAL  NAVLOS*  NAVRFO 

IF  UNUC.GT.l)  GO  TO  60 


1//630 

irzroo 

1//S30 
l  Tl  >01 
l  /  i  OJl 
1MUI) 
i /  i’oo 
t  /  J  so  t 
1 /  14  jO 
1/ J5J1 
l / JSJ3 
1MU) 
l  /  5001 

I  /  J  J  J  ) 
1/400) 
IM  l'l  > 
1/470  1 
1/4  503 
It  1,1.01 
l/4bJ0 

I I  4  ■}  j  1 
1  /  4  /  J  ) 
1/400) 
1  /  4-.>J.) 
1 / >  J  )> 
1 /b 10) 
1  />/)) 
1  /  >  iJ  0 
1  /  >  4  J  ) 
Itj  it)  ) 

LtobO) 
l /b/J) 
l/>  U  > 

1  /  i  >  0  0 

1/400  ) 
LtjlJl 
1/6/00 
1  /b  5 O') 
l  /64  jt) 
1 /oSOO 
1 / 0401 
1 /b/ 39 
1 /o6d0 
l  /  b  >  J  0 
1// JJO 
1  //10) 
ItfZil 

i  tt  i~n 

IT  f  1,00 
1  // iJ  ) 
1//6J) 

irrtoo 
1//60) 
i //?■)) 
1 ZoOdO 
1  /  rt  i  0  J 
1/6'jJ 
1/1 10) 
1/1400 
1  /  d  >0  0 
1  /  »  >  )  ) 
l/J/>) 
1/U30 
)  /no  1 1 


c 

c 


HEAD  INVENTORY  r At* E  EIRON  PEKS/X  AMO  COMPUTE  MANSFORMATl  ON 

percents  by  ios  r on  each  paygrade  for  the  next  rating 

WRITE  (6.S) 
i  FORMAT  C  IHl  ) 

1)0  lb  1-1,11 

on  to  i=i ,o 

JO  lb  A  =1  .1  10 
ti  TRA'IjFTK*  r,  I  )  =  0.0 


C 


13 


1003 

20 

C 

C 


C 

C 

JO 

40 

C 

C 

53 


DO  20  1= 1. 12 

MEAD  { IUIN. 1 033. END=50)  I CJ OE * X ( 9 .  I  ), X<  B* I > » X ( l .  I ) . X C 4, I ) . X ( b . 1  ) » 
<(4.1  ).X(  J*  t  >.X(/.I  >.X(  1.  I  >.l  r 
FORMAT  (4K.A4.lI/./X.l/) 

IF  (tr.MC.l)  CALL  E ROOM ( l 5. ICODE.IY.I.J.C) 

C  0  V  T I NUr 

LOOK  FOR  HATCH  IN  ARRAY  JRATE 
JR  =  NSCANX( JRATE( 1  ).110.1COUE> 

IF  (JR.GT.O)  Gu  TO  30 
CALL  ElrtilSt  I6.IC0JE  .0.0. 0.0) 

OU  TO  10 

COMPUTE  T  <  A NSFOit MA  T  1  OAt  PERCENTAGES 
DO  4 J  1=1.9 
DO  43  J=l.Jl 

IF  (XU.  J7I.GT.0.01  TRANSF(Jft.l.J)  =  XU.J)/XU.J?) 
bl)  TO  10 

END  OF  FILE 
LOCK  IUIN 
KEIU  (N 


C  APPLY  PERCENTAGES  TO  THE  KF3UI REMENTS 

C 

C  SOME  DATINGS  ARE  SPLIT  IN  ENREP.  AS  ELSEWHERE  TN  THE  NAVY. 

C  SY  PAYG(A;)F.  JOI  IHEY  ARF  NJT  SPLIT  H  THE  ENLISTED  INVENTORY 

t  FILE.  THEIEFOHE.  THE  FOLLOWING  HIGH  PAYGRADE  RATINGS  ARE  USING 

C  THE  INVENTORY  DATA  UF  THEIR  C JR  RESPOND T MG  RATING. 


L 

ST 

0  400) 

AND 

STu 

(  0401  ) 

-  CELL 

/ 

AN  J 

cfll 

a 

C 

PI 

(1063) 

AND 

1  M 

(1100)  - 

CELL 

?b 

ANO 

cell 

2 1 

C 

CD 

C  S060) 

AND 

CE 

(  b  13  0  )  - 

CELL 

6  b 

ANO 

cell 

6/ 

C 

EC 

(5JJ0) 

A  NO 

EO 

(5410)  - 

CELL 

66 

ANO 

cell 

69 

c 

AF 

(6080) 

ANO 

AO 

(6700)  - 

cell 

/  4 

ANO 

CFU 

/b 

c 

A  V 

(6160) 

A  NO 

AO 

96730 )  - 

CELL 

rs 

ANO 

CELL 

/  6 

60  DO  4?  1  =  1.1  10 
6/  1  PiROX Y (  I  )  =  0 
lPiROXYC/)=  l 
1  PR  0<Y(  7  6  )  =  7 1 
I  P.ROX  Yt  6S  )=  6/ 

IPROXYl ba)=6V 
I  PROX  Y<  /  4  )=/b 
IPRDaYI / b ) = / 6 
DO  TO  J=l.J2 
00  TO  1=1,111 
TO  N  A  VI 0S<  I »  J )  =  0  .  J 
00  VO  1=1.110 
I  1=1 

IF  (IPD0XY( IT.GT.O)  II=IPROXY(I) 

DO  SO  J  = 1 . V 
DO  M3  K*l. Jt 

6  3  N  A  Vl  i  S(  I  .K  )  =  NAVLJS(  I.K)»NAVREQ(  I .  J  >•  III  A  NSF<  1 1  .  J  .  X  ) 
90  CONTINUE 
C 

r  PJiX/i  I.  HE-SUl  IS 
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i/)0)l 

1/910) 

mi  n 
t  mw 

i  /)4oi 
1  //5i  > 
1/9&  n 
1/ »/o) 

1/9101 
1/9911 
I  Ainu 
1  101 11 
1 3121) 
189  ill 
1  1'JH) 
1  91511 
l  91811 
1 91/1 > 
181801 
1 91911 
191001 
1  91  11) 
181  »ii 
H1510 
191411 
1  91  510 
1  USjI 
191/1) 
I'll  90) 
1  11  Ml 
1 9201) 
1 8? I 10 
1922)1 
192501 
1  924 11 
1  82511 
l  9  2811 
l  32/11 
1  1281) 
1*21!) 
1351)1 
1  35111 
1352  10 
1  8  5  Ml 
1  9J4U1 
185511 
13581) 
13  5/11 
135310 
1  9  5 1  j0 
134001 
134101 
19420) 
1345)0 
134411 
1  94513 
1 34811 
194/11 
134910 
194911 
139011 
135100 
195211 
13)5)1 


I*lYR»IBY-l 

WRITE  (8*2000)  I.(J* J=l*16> 

)  FORMAT  (  1  ill // 40X. -ALL  NAVY  CUISIFO  iCGUIREHENTS  TUI  FY*. 14// 
•  56X  » "L E NG I M  OF  SCR V  ICC"/ /X . 6H RA f l SC » SX. 1 6 ( 1 / > / ) 

01  til  1*1,11) 

MllTt  (8*21)0)  IMATEl  I  )  *J1A  tE(l  >*<  NAVLOSI  1.  J).J*l.  t& ) 

)  FORMAT  (5X. A5. IX. A4. >X. 16r/.l) 

00  l  10  J-l.  !l 

)  NAYLUS(  U 1 *J > =N A VL0S( 111 >J)» NAVLOSI  I*J) 

WRITE  (8.2020)  < 9»VL0S( 11 1* I >.I *1.  16) 

)  FORMAT  {10X*iHLOS/AX.5HTOTAL*SX*16F/.)> 

00  111  1=1. 51 

on  no  i  =  i. in 

>  NAVL0S( I  *  52  )  =  NA VL1S( l . 52) ♦NAVLOSI  I  . J) 

RRI 12  (  6.  2050)  (  l. 1=1/. 51) 

)  F  OHM  A  T  ( INI /55X. -LENGTH  OF  SF  RV  I CE  ".  55X  .  &HR  4  T  I  NO  / /X  .  bill  A  II  N  r, . 
•SX»15(IZ)»5X*5HT  )TAL/  ) 

Of)  121  1  =  1*110 

)  WRITE  (  b*  20  40  )  18  A I  E(  l  >  .  JR  A  TE  ( 1  )  *  (  NA  VLUSI  I  .  J  )*  J  *  1  /.  52  ) 

>  FUMAI  (5X*A5*1X*A4.5X*  15F/.O.F10.  J) 

WRITE  (6,2050)  ( N 9 VLO S(  11 1 . I ) * t = l / *  52) 

)  FORMAT  (l)X*5HL0S/8X*5rtT0TAL*54*15F/.0*F10.1) 

RETURN 

ENo 


SUtlRUUTINF  OVERN  (  l  Y.<  *  P  U.  PC  *  Y  R  TO  I  A  ,  SPE  AC  .  UY  I  T  9  > 

THIS  SUBROUTINE  PERFORMS  THE  USER  OVERRIDES 
TO  NATH  0N80AR0  ANO  5UPP0RI  EACTJHS 
E  OR  PATHCULAR  COMrf  T  Y  A  I IONS  IE  YEA  1/ AC  1 /PE/PU 

DIMENSION  SPF  AC(5)*  UNI TR ( 1  HI* 9 ) 

COMMON  HU  OFUPOK  100, 10),  NOFOP* 

•  PEiiroK  50.9),  LPE UP 0(50*20*2),  YPEUP 

OIMEYSIDN  IFUPJK 110. 10),  JPJP0T(50.9) 

E3UIVALCNCL  ( OF  UP) T ( l  )* I EUPO T { I ) ) .  (PFUPO T ( I > . JE U * J T ( 1 ) ) 

INTEGER  P 0 * P E 

CHECK  aiRECT  0VER8I0ES 
on  u  i  =  t*.Yorup 

Ir  (PU.NE.IEUP)Tt  l*/)  )  CO  TO  10 
(E  (PE.eo.IFUPDTl T.8) )  CO  TO  21 
11  CONTINUE 
GO  TJ  60 

MATCH  EOUYO 

20  IF  (IY3.IT.  IE020K I  .  9  ) . OR .  I YR .i T . I F UPO I ( t.I )))  GO  TO  60 
WRITE  (6. 21  )  PU.PE 

21  rORMAT  (  IHll.'MATCH  ON  OIRECT  FACTOR  U°UME  -  PU/PE  «  *.16.18/, 16) 
IF  (JEUPOK  I.6I.LT.0.0)  GO  TO  4) 

OYdOARO  MAYNIM& 

IF  (YRTOTA.LE.O)  CALL  ERROR  (  14 .PU. PE . 1 , 1 » 0 ) 

SCAL£=0.0 

IE  (YRIOTA.GI.O)  5C AL E= OEUPO T ( I .6 ) / YRT 0 T A 
00  50  K=  1  .9 
CO  5)  J=l.l 10 

50  UNI  T.<(J.K)  =  UYUR(  J*K  ) ‘SCALE 

WRITE  (6.22)  YRTJTA  .OEUPOTI I .61 

22  FORMAT  (*  UNOOARO  FACTOR  CHANGED  FROM  *.r9.2.»  TO  *.F9.2) 
YRTOIA«OruPOT(I*4) 
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X 


i  mo  o 

c 

SUPPURI  NANNING 

1  153)9 

4) 

1)0  5)  J=  1 .5 

l  moo 

if  ofupjki. jt.LT.o.O)  cn  to  50 

l  *>r  )■) 

WRITE  (5.23)  J»SPFAC(J)»3FUP3T( I »  J  ) 

1853)3 

23 

FORMAT  (-  FACT)!)  ".II,"  CHANGED  FRJN  "*F9.2,"  TO  •#FV.2> 

n>i30 

SPFAC(J)  =  OFU.'Of(l.J) 

1  »',o  J  J  > 

50 

C01TINJE 

l  lul  JO 

REIU.’N 

1 1o2J) 

c 

1  1  j  10) 

c 

CHECK  1  HE  PERCENTAGE  FACTORS 

lduAJO 

50 

DO  8)  l=l»MPFUP 

l  90")  JO 

0)  / 3  J-  l  •  JFUPI)  T( I »  9  ) 

1 SuiUO 

IF  (PU.NE.LPEUPO(t.J.l))  GO  TO  TO 

l 16/ JO 

IF  CPE.NE.LPFUPDU.  1.2))  GO  TO  TO 

IrtoDO 

IF  (IYH.GC. JFUPDTT l  » 7  ).  AND  .  I YR. LE . JFUPOTt 1.8))  GO  TO  9) 

1169)) 

70 

CO  HINUE 

ih/ooo 

3) 

CONTI N JE 

H/IM 

HE  1 1JKN 

id/  ? jo 

c 

11/5)0 

c 

NATCH  FJUNO 

1  1/4)3 

90 

111  T£  (6,  91 )  i*U.PE 

11/5)  ) 

91 

FORMAT  (IH«. -MATCH  ON  PERCENTAGE  FACTOR  UPDATE  -  PU/PE  =  1 

1 1/1)3 

*16) 

11//00 

IF  (PFUPUK  1,6). EQ. -999999.  )  GO  TO  110 

IK/ 0)1 

c 

10/ 93  3 

c 

0N90AR9  MANNING 

l 139)0 

X=YRIOTAiYI T)TA«PFUF)f(  1.6) 

l 03 1  JO 

scALE’X/rororA 

133200 

JO  100  5=1.9 

1UJ33 

un  loo  j=i.iio 

1.13  4)0 

100 

UNI  Tilt  J,K)=UNl  IR(  J.K  )»SCAl  E 

11)5  JO 

■  PI T £  (6.93)  YRTOTA.X 

1  R-ifj  JO 

93 

FORMAT  (*  ON.lOARD  FACTOR  CH  ANGE  0  FROM  "»F9.2»"  TO  -.F9.2) 

i a j/oa 

TR 10 I A=  X 

111)J3 

c 

l  ft  *»*0  > 

c 

SUPPORt  MANNING 

1  fly ODD 

11) 

DO  120  J  =  1 . 5 

i  mm 

IF  (.‘FJPJK  I.  J).EO. -999999.)  GO  10  120 

i jy/Ji 

X  =  i  PE AC(J)iPFUPDT( 1 .  J  )•  SPE  AC( J) 

1 d9  3)9 

WRITE  (6.«5)  ).SPFAC(J).X 

1 104)0 

95 

FORMAT  (-  FACTOR  -.11.-  CHANGE)  FROM  -»FJ.2»-  10  -,F9.2) 

1 195  JO 

SPFAC( J)=X 

150500 

120 

CONTINUE 

l  5  ■)  /  3  0 

RETURN 

1191)3 

ENJ 

1  10  )  )0 

c 

1 9  J0')0 

c* 

r  ••• 

iojijo 

c 

19)203 

SU.JRJUI  INE  ERROR  (T  YPF.PARM1.PARM2. PAR  MJ, PARMA. PAR15) 

1  9y  3  )0 

INTEGER  TYPF.  “AKM1.  PARM2.  PARMI.  PAR.14.  PARN5 

l  934)0 

GO  TO  (10.20.30.40.50.60,70,80.90,100.110.120.130.140.150 

1005)3 

»  I/O. 1X0,190,200),  TYPE 

1 936)3 

c 

1  -  N )  UNlI  RFOUIRCMENTS  FOR  THIS  ACT  4S3  »F 

19  J/00 

10 

■  RITE  ( 6, 7  ft  0 )  PARMI, PAR"2.PARMi 

1  701)0 

RETURN 

19)900 

c 

2  -  NU.10ER  OF  PE'S  NUM3ER  MORE  THAN  PARMJ 

19U.I0 

2) 

RRI TC  (6.8)0  PAKM2 

191100 

P  AR  Ml*  PA  RM  J 

1912)0 

RETURN 

m  5  )0 

c 

J  -  TOO  MANY  PE  COOES  IN  A  PERCENTAGE  UPDATE  JOUUP 

1  91  430 

3  J 

■RITE  (6.9301 

1915)0 

PAMM1=20 

1915o) 

RETURN 

191 /) 0 

c 

A  -  INPUT  FORCE  RECORDS  NUMBER  MJRE  THAN  PARMS 
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19MJ0  40  ARTIE  (6.1)00)  PAWN  5.PAHN2.  PAR.N  5.PARM4 

191903  PARR^PAKMS 

i  >2001  «r r U.JM 

T92107  C  5  -  WRONG  NUMJER  OP  SUPPORT  PE'S  RCAJ 

19220)  SO  WITTE  (6.1100)  P4MN1.PARM2. PARIS 

192SJ0  RETURN 

c  ■>  *  no  wary  force  upoaies  fntereo 

l  »25oo  60  write  <6.1200> 

I  92630  PARM1*200 

19.930  return 

192100  c  r  *  rno  hart  oipect  factor  upoatfs 

JI2»37  TO  WRITC  (6.1100) 

190001  PAHNl*TOO 

l»il)0  KF  1  U(R 

IM200  C  )  -  INVALID  SUpP.ORt  AREA  IDENTIFIER 

1  9  00  00  AO  WRITE  (6.  1400)  P  ARM  t.  P4RM  l  .  PAR.M2 

190400  P  ARM  0*0 

19)5)0  C  9  -  TOO  MARY  PERCENTAGE  FACTOR  UPDATES 

19  0)7)  90  WRITE  (6.1  500) 

19  090  )  P ARMi*50 

190000  RETURN 

191)00  t  10  -  TOO  MANY  CHANGES  TO  THr  N4RN  YARIA8LF  PERCENTS 

1 9 w 00 )  100  WRITE  (6.1600) 

194107  PA.RMI  *5 

1  94  '01  RC1IJRN 

1)4501  C  It  -  INVALID  SUPPORT  AREA  IDENTIFIER  -  VARIABLE  PFRCENI  CHANGE 

194400  110  WRITE  (6.1900) 

1)450)  R*RM1*0 

1)4607  RETURN 

194901  C  12  -  INVALIO  YEAR  SPECIF  IFO  -  VARIABLE  PERCENT  CHANGE 

194  907  120  WRITE  (6.  I  ROD  P  ARM  2 

1)49)7  PArM1  =  0 

19) 7 J'l  <  El  URN 

1 971 07  C  13  -  TUC  MANY  USER  SUPPORT  AREAS 

19.27  )  ISO  MRIIC  (  6.1900) 

19)510  PARM|*|0 

19)407  PF I  URN 

19GS70  C  14  -  4LL  ZERU  PF  -  USFH  OVERRIDE  10  FACTORS 

19)6  00  140  WRITE  (6.  2000)  P  ARM  1  ,P ARM  2.  P  A  RM  I 

19)90)  RET URN 

19)1J7  C  IS  -  LGSI  A  RECORD  TIN  THE  ENLISTED  INVENTORY  TAPE 

19>)0  1  ISO  WRITE  (6.2107)  P ARM  1 . P ARM2, P ARM  5 

1960)7  RETURN 

1 7b i oq  c  16  -  unknown  rating  appears  on  the  Cnlisteo  inven.  tape 

196200  160  WRITE  (6.2207)  PARNl 

1 9«  107  RE) U1N 

1 9 6 A 0 7  C  19  -  ARRAY  TOO  SMALL  *  TOO  MANY  ACT  COOES 

1  )6507  190  WHTE  (6.2500)  PARM? 

196600  PARM1*PARM2 

1  9)907  RETURN 

196)70  C  1)  -  ARRAY  TOO  SMALL  -  TOO  MANY  PF'S  IN  AN  ACT  CODE 

196900  ISO  WRITE  (6.2400)  PARM2 

199000  P ARM l =p  ARM  2 

199100  RE  I  URN 

199200  C  19  -  ARRAY  TOO  SMALL  -  TOO  MANY  PU • S  IN  AN  ACT/RE  PAIR 

199)00  190  WRITE  (6.2500)  P  ARM  2 

1 9  9  A  0  )  PARM1  =  PAHM»! 

192510  RETURN 

l 7/SOI  c 

199900  t  20  -  ARRAY  TOO  SMALL  *  TOO  MANY  PE  COOES 

19/100  200  WRITE  (6.2600)  P ARM 2 

1991)0  P AH  M 1  a  P  A  RN2 

l 91 709  C 

19710)  900  FORMAT  (55)10  THERE  IS  NO  UNIT  REOUIREMENTS  MATRIX  FOR  ACT/'F/Pu  •! 
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I932J1  •  A,lH/.lS.|H/.lt>) 

Dim  hod  format  (imo  tmc.tf  arf  too  many  pf*s.  pe  .is.zam  is  include)  in  r 
i  jo  *he  l*si  pr.  > 

mil)  933  FUlMAT  ("0  InERE  SUE  100  MANY  PE  COCES  IN  A  PERCENTAGE  FACTOR  UP3A 

iundo  *rr  -  unit  is  zi") 

1  >1/10  mo  F0RM4T("0  IHERF.  ARE  NOME  THAN  *.IA."  FORCES  MCCORDS.  F ONCE 5  FOR  AC 

19'lrlJJ  .I/PF/PJ  ".I  A. 111/.  In.  IH/  .  I  A.  IOH  Al<r  INCLUDED  IN  I  ME  LAS!  INF.) 

19.»))>  llOl  FORMAT  (  <2  AH  0  TIMOR  IN  SUPPORT  SFCT1R  .  I  I  .  10  . .  2X .  15. ?  /H  PE’S  METE  1 

i 99390  *£AU  INSTEAD  QF  .IT. III. J 

199100  l?nu  F  11*1  MA  T  (  1H0.  19HTHERE  ART  TOO  MANY  INPUT  MllICE  UPDATES.) 

19)20)  1J0J  FORMAT  (IHO. "THERE  ART  IU0  MANY  DIRECT  FACTOR  UPDATES  -  UNIT  IS  I 

1991)0  »0)*) 

199AJ)  IbOD  FORMAT  C 1H0.*INYAL 10  SUPPORT  AREA  IDENTIFIER  -".IP."  IN  PD/ PE 

199530  *16. IH/. IS) 

1 9 9a J9  1503  FORMAT  OHO. -THERE  ARF  TOO  MARY  PERCENTAGE  FACTOR  U’DUES  -  LIMIT 

1 9  J / 09  «IS  5)"> 

19/133  1633  FORMAT  (  l  HD. **100  MARY  CHANGFS  10  THF  RAO«  9  A  M  A ‘.ILF  ’ERCFNTS”) 

199930  1/03  FORMAT  (  1  HO .- 1  !l  V  Al.  1 0  SUPPORT  AREA  IDENTIFIER  r)R  A  CHANGE  TO  IRE  N 

29J030  »ARm  9ARIA0LE  PERCENTS*) 

203130  1103  FORMAT  (IHU.'INVALIO  YEAR  SPECIFIFO  FOR  A  CHANGE  TO  VAOIARLF  PERCE 

203233  *NT  II  SUPP0R1  AREA*. 12) 

203130  1900  FORMAT  ( 1  HO. "TOO  MART  USER  SUPPORT  ARTAS  -  LIMIT  OE  10*1 

203630  200)  F  0  I M 1  T  (IHS.'NO  3ILLFTS  FOR  PU/PE  * . I  6 . 1 H/ . I b.*  MHICH  USER  IS  ATTE 

2  )3 53)  •fiPIMG  TO  OPIATE  FACTOR". 12) 

203601  213b  FOiRAI  (IHO.-LOST  RTCORD  ON  THE  ENLI4TF0  INVENT1RY  TAPE.  ". 

20  ) " 11  •"RVTINS  IS  ". A  A . "  AND  LOS  CELL  IS  *.I2."  ANO  SHOULD  HE  ",!?) 


20U50J 

?20 0  FORMAT 

(  l  HO  ."'JNKN  OR  N 

RATINU 

ON  THE 

ENLISTED  INVENTORY 

TAPE.". 

200900 

201 001 

•  *  •#  \4> 
ZJOO  FQ.IMAT 

(IHII.  "INCREASE 

ARK  AY 

SIZE  - 

MORE 

THAN*  ,1 l ,m 

ACT 

COOES") 

201  mo 

2400  f  OK-AT 

(HID. "INCREASE 

ARK  AY 

SIZE  - 

MORE 

THAN*  *1 l," 

Pt 

CODES  IN 

AM 

20 1  ? j  ) 

201 50  > 

•ACI  COOf) 

2!>0<1  FOKMAf  (1  «<>,*[  NCREASF 

ARRAY 

SIZE  - 

M3'?E 

THAN", I l , " 

PU 

COOPS  IN 

AM 

20U  00 
201  5  J>) 

•ACT/PE 
2600  FORMAT 

pait) 

C 1H0^-INC8EAS£ 

ARRAY 

SIZE  " 

MORE 

1  HAN**#  1  4#- 

?E 

COOES") 

231631  END 

201/DO  C 

2  31631  . . . 

201139  C 

232333  INTEGER  FUNCTION  N SCANT (R.L . I  ) 

232190  DIMENSION  M ( 1 ) 

202230  J=L 

202131  5  IF(MCI).IS.I)  GO  TO  10 

202  ADO  J  =  J-l 

292530  IF  (J.GT.O)  GO  TO  5 

202601  J=  3 

202/33  ID  NSCA,1X  =  J 

232601  RETURN 

202)0)  END 


Subroutine  RDINPU 


BEGIN 


READ  AND  DISPLAY  USER  S 
DIRECT  FACTOR  UPDATES; 
BY  PE/PU  CODES  AND  YEAR 


INPUT 

INDICATOR  #2  >0 


READ  ANO  DISPLAY  TRANS 
FORMATION  INDICATOR 
(PAYGRADE  TO  LOS) 
FROM  USER  S  INPUT  FILE 
ON  UNIT  5 


'  READ  THE  6  INPUT  INDICA 
TORS  FROM  USER  S  INPUT 
FILE;  A  VALUE  >0  INDICATES; 
OPTION  IS  BEING  USED  AND  j 
SPECIFIES  THE  NUMBER  OF 
INPUTS  FOR  THAT  OPTION 


READ  AND  DISPLAY  USER  S 
PERCENTAGE  FACTOR 
UPDATES;  BY  PE/PU  CODES 
AND  YEAR 


INPUT 

INDICATOR  •!  >0 


REAO  ANO  DISPLAY  USER'S 
FORCE  UPDATES;  BY  ACT/PE/ 
PU  CODES  AND  YEAR 


READ  AND  DISPLAY  USER'S 
INPUTS  TO  VARY  PE*  NOT  IN 
A  FORCE  OR  FORCE 
SUPPORT  AREA 


INPUT 

INDICATOR  #5  >0 


READ  AND  DISPLAY  USER'S 
PERCENTAGE  CHANGES  TO 
THE  FIXED  REQUIREMENTS 
BY  YEAR 


Subroutine  RDFORC 
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B-102 


I 
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ff 


A 


/.RITE  v ar.ablE  PcQu  R£- 

t/ ENTS  FOR  THIS  ?E  ON  TmE 
INTERNAL  F»Le.  »UVR 


REATER 


i 

I 
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WRITE  VARIABLE  REQUIRE 
MENTS  FOR  THIS  PE  ON  THE 
INTERNAL  FILE  IUVR 


Subroutine  PRINT 
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Subroutine  CPFIXR 


ADD  THE  VARIABLE 
ENDSTRENGTH  TO  THE 
ONE  FOR  THIS  FORCE  OR 
FORCE  SUPPORT  AREA 


'T  (/>  f".  (A  UJ 

22j"zo 

sssijj* 

isSsS 

1303*- 

UIOUOUI 

I  UJ  uj  UJ  I 

KCCO.CCK 


Q^-O 

ZZ£l_ 

<50  = 
“J5ujO 
§£52 
03^’ 

tuO^ 

0.  UJ  UJ  Z 

UJ*§P 

K  UJ  "  O 
UJ  ^  t  LU 

tu.fr1 

CC  UJ  7  u. 

Sjg 


UJ  z 

trojt 

5?sj2 

0*T°Z 

UiUCUJ 

Ij**s 

qFwuj 

UJ^UJGC 

*”§5 

lLw00 

uj>“i‘" 

H“^°c 

*  tz< 


Subroutine  CPPRXV 


FOR  EACH  AREA,  COMPUTE 
THE  PERCENTAGE  CHANGE 
BETWEEN  THE  CURRENT 
AND  BASE  CASES 


END  OF  LOOP 
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./  IS  \ 

./  THIS  A  FORCE 
/SUPPORT  AREA  WHICH^O^S 
.USER  HAS  CHANGED  PER/ 
\^CENT  VARIABLE/ 


COMPUTE  CORRESPONDING 
PERCENTAGE  CHANGE  TT 
THE  FIXED  REQUIREMENTS 
AND  ADJUST  THEM 


NO  VARIABLE  REQUIRE¬ 
MENTS  FOR  THIS  PE.  THE 
FIXED  REQUIREMENTS 
BECOME  TOTAL  ONES 


CALL  CPUSER  TO  COMPUTE 
VARIABLE  REQUIREMENTS 
AND  ADJUST  FIXED  ONES.  IF 
THE  USER  MADE  THIS  PE 
VARIABLE 


/  IS  \ 

^/  THE  USER 
^ADJUSTING  FIXED  RE¬ 
QUIREMENTS  B  V  A  PER- 
\CENTAGE  CHANGE/ 


ADJUST  FIXED  REQUIRE 
MENTS  TO  REF  LECT  USER  S 
PERCENTAGE  CHANGE  FOR 
THIS  YEAR 


/  USER  ADJUSTING  ^ 
<  FIXED  REQUIREMENTS  BY 
A  PERCENTAGE  / 


A  PERCENTAGE 
s.  CHANGE  / 


ADD  FIXED  REQUIREMENTS 
TO  VARIABLE  ONES  AND 
THEN  ADD  TO  ALL  NAVY 
TOTAL  REQUIREMENTS 


ADJUST  FIXED  REQUIRE 
MENTS  TO  REFLECT  USER  S 
PERCENTAGE  CHANGE  FOR 
THIS  YEAR 


WRITE  PE  CODE  AND  TOTAL 
REQUIREMENTS  ON  THE 
I  ENREP/FINALREQ  FILE  ON 
UNIT  IUOUT  / 


ADD  FIXED  REQUIREMENTS 
TO  THE  VARIABLE  ONES,  IF 
ANY.  AND  THEN  ADD  TO 
THE  ALL  NAVY  TOTAL 
REQUIREMENTS 


/^  IS  \ 

THIS  A 

FORCE  OR  FORCE 
SUPPORT  PE 

\  7  / 


/  IS  \ 

THIS  A 

FORCE  OR  FORCE 
SUPPORT  PE 

\  7  / 


ADD  THESE  TOTAL  RE¬ 
QUIREMENTS  TO  THE  ONES  | 
FOR  THIS  FORCE  OR  FORCE 
SUPPORT  AREA 


ADD  TOTAL  REQUIREMENTS 
TO  OTHERS  FOR  THIS  FORCE 
OR  FORCE  SUPPORT  AREA 
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Subroutine  CPUSER 
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APPENDIX  C 


ILLUSTRATIVE  INPUTS  AND  OUTPUTS 

PRELIMINARY  ROUTINES 

Figure  C-I  is  a  sample  of  the  output  of  the  EXTRACT  routine.  ’Die  printed  output 
contains  the  header  record  of  the  RENLQIJAL/SPECIAL  file,  the  Input  and  output 
versions  of  every  thousandth  record,  and  counts  of  the  input  ami  output  records.  The 
number  of  Input  records  exceeds  that  of  output  records  because  the  input  file  also 
contains  update  records,  which  are  Ignored.  The  user  can  expect  approximately 
350,000  records  on  the  RENLQUAL/SPECIAL  file. 


Figures  C-2  and  C-3  are  samples  of  the  printed  outputs  of  the  FORCES  routine, 
ship  ami  air  versions,  respectively.  Arbitrary  numbers  have  been  used. 

Figures  C-4  and  C-S  are  samples  of  inputs  to  the  FACTORS  routine.  On  each 
file,  line  100  specifies  whether  a  ship  or  aircraft  unit  requirements  file  is  being 
created.  The  remaining  lines  specify  quality  proxies  for  ACT/PE/PU  combina¬ 
tions  not  in  the  RENLQUAL  file.  A  run  of  the  FACTORS  routine  will  inform  the 
user  of  any  combinations  which  are  in  the  NARM  factor  file  but  not  in  the  RENLQUAL 
file,  so  that  the  appropriate  action  can  lx.'  taken  in  the  second  run.  For  example,  in 
line  900  of  figure  C-4  the  DD  ships  with  AGT/PE/PU  codes  of  441/242922/112213  are 
using  the  quality  of  DD  ships  witli  ACT/PE  codes  of  441/242932.  The  PE  cotie  must 
be  specified  twice,  first  with  the  NARM  convention  of  ending  the  code  in  a  numeral, 

2,  ami  then  with  the  RENLQUAL  convention  of  ending  the  code  in  a  letter,  N.  lbe 
number  1  ending  the  line  indicates  that  NARM  factors  exist  for  this  combination 
ami  are  not  being  changed.  In  line  200  of  figure  G-5,  the  A  15  aircraft  with 
ACT/l’E/PU  codes  of  6705/241362/280680  are  using  the  quality  matrix  of  the  A- 7 
aircraft  with  ACT/PE  codes  of  0705/241352.  And  on  the  next  line  the  user  has 
specified  values  for  onboard  manning,  base  operations,  training,  medical  support, 
recruiting  and  examining,  ami  individual  support,  in  that  order. 

Figures  C-0  and  C-7  are  samples  of  the  printed  outputs  of  the  FACTORS 
routine  and  correspond  to  the  input  files  of  figures  C-4  ami  C-5,  respectively. 
FACTORS  first  displays  the  AGT/PE/PU  dictionary  as  a  convenient  reference. 

Ihen  it  displays  the  user's  inputs  and  the  NARM  manning  factors  to  document  the 
run.  (Note  that  the  onboard  factors  are  displayed  by  year  although  they  are  eon- 
•o.Kif  across  time. )  As  FACTORS  proceed s  through  the  creation  of  unit  require- 
«  u.s  matrices,  if  sums  each  matrix  and  displays  the  total,  by  year,  with  its 
•1»  "itMin:  ACT  PE/PU  codes,  'lltesc  matrix  totals  should  equal  the  onboard 


Figure  C-8  is  a  sample  of  the  printed  output  of  the  SUPPORT  routine.  The 
rating  totals  (nonzero)  by  year  are  displayed  for  each  PE  in  a  force  support  area. 
Then  the  total  for  each  area,  by  year,  is  displayed  at  the  end  of  the  job. 

Figure  C-9  is  a  sample  of  user  input  to  the  TOTAL  routine.  Line  100  specifies 
that  the  NARM  PE  totals  are  being  used  with  the  RENLQUAL  quality  matrices  to 
create  total  requirements  matrices.  If  line  100  contained  the  word  "billet”,  the 
RENLQUAL  file  would  be  used  unchanged.  Line  200  can  contain  the  word  "yes"  or 
the  word  "no"  and  specifies  whether  an  output  file  is  to  be  created.  Line  300  can 
contain  a  list  of  PEs  to  be  deleted;  a  blank  line,  as  in  this  sample,  specifies  that 
none  is  being  deleted  in  this  run.  Lines  400-2500  specify  quality  matrix  proxies 
for  PEs  not  in  the  RENLQUAL  file.  A  run  of  the  TOTAL  routine  will  inform  the 
user  of  any  PE  codes  which  are  in  the  NARM  file  but  not  in  the  RENLQUAL  file,  so 
that  the  appropriate  action  can  be  taken  in  the  second  run.  Each  of  these  inputs 
requires  two  lines;  the  first  contains  the  PE  whose  quality  matrix  is  being  used 
by  those  in  the  second  line.  In  lines  400  and  500,  for  example,  the  quality  matrix 
of  PE  21118N  (airborne  command  post,  CINCPAC)  is  being  used  for  PE  2111 7N 
(airborne  command  post,  CINCEUR).  Line  2600,  a  blank  line,  ends  this  type  of 
input.  Lastly,  line  2700  can  contain  changes  to  the  quality  of  specified  PEs;  a  blank 
indicates  that  this  option  is  not  being  used. 

Figure  C- 10  is  a  sample  of  the  printed  output  of  the  TOTAL  routine.  It  first 
displays  the  user's  inputs  to  document  the  run.  As  it  proceeds  through  the  computa¬ 
tions,  it  displays  the  PE  codes  and  their  totals  by  year.  Then,  it  displays  the  sum 
of  all  total  requirements  for  each  year. 

Format  specifications  are  well  defined  in  the  program  listings  of  each  routine. 
PLANNER 

Two  examples  will  be  presented.  In  the  first,  PLANNER  has  been  executed  with 
no  use  made  of  the  input  options.  In  the  second,  all  options  have  been  exercised. 

Example  One:  No  User  Input  Options  Exercised 

Figure  C-ll  illustrates  the  user's  input  file.  Line  100  indicates  that  a  projec¬ 
tion  will  be  made  for  six  years.  (The  number  of  years  specified  always  includes 
the  current  year. )  Line  200  indicates  that  the  total  requirements  will  be  displayed 
by  rating  and  LOS  in  addition  to  the  standard  rating  by  paygrade.  Line  300,  a  blank 
line,  indicates  that  no  user  inputs  follow.  (Format  specifications  are  well  defined 
in  the  program  listing. ) 

Figure  C-12  is  partial  output  of  one  year's  projection.  The  ship  and  aircraft 
force  tables  are  incomplete  and  contain  arbitrary  numbers  to  preserve  the  unclassi¬ 
fied  nature  of  this  paper. 
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Example  Two:  All  User  Input  Options  Exercised 

Figure  C-13  illustrates  the  user's  input  file.  Line  100  indicates  that  a  projection 
will  be  made  for  six  years.  Line  200,  a  blank  line,  indicates  that  requirements  will 
not  be  translated  from  paygrade  to  LOS.  Line  300  is  the  key  to  the  user  inputs.  The 
numbers  in  that  line  refer  to  the  following  inputs,  respectively: 

1.  force  updates, 

2.  direct  manning  factor  updates, 

3.  percentage  manning  factor  updates, 

4.  changes  in  the  variable  percentage  of  the  five  force  support  areas, 

5.  inputs  to  vary  PEs  not  in  a  force  or  force  support  area,  and 

6.  percentage  changes  in  fixed  requirements. 

For  types  of  input  one  through  five,  the  corresponding  number  in  line  300  specifies 
how  many  Inputs  of  that  type  are  to  follow.  For  the  sixth  input  type,  the  number  is 
a  flag;  a  value  of  1  indicates  it  is  being  used.  Note  that  these  user  inputs  do  not 
change  the  data  base  produced  by  the  preliminary  routines. 

Lines  400-1100  describe  the  force  updates  for  the  four  ACT/PE/PU  combinations 
of  123/242972/117201  (AD-26CL),  410/242412/110602  (CVV-1CL),  6705/241352/230620 
(A-7E),  and  6709/242622/222408  (P-3C).  The  number  of  force  units  by  year  is  con¬ 
tained  on  the  line  following  the  identification.  These  inputs  override  the  force  levels  in 
the  data  base,  or  supplement  the  data  base,  for  the  AD-26CL  ships  serving  in  the 
support  forces  PE,  the  CW-1CL  ships  serving  in  the  VSTOL  support  ships  PE,  the 
A-7E  aircraft  serving  in  the  A- 7  squadrons  PE,  and  the  P-3C  aircraft  serving  in  the 
ASW  readiness  squadrons  PE. 

Lines  1200-1900  describe  direct  manning  factor  updates  for  PU/PE  combinations 
116901/242822  (AS-11CL)  and  230620/241562  (A-7E).  Lines  1200  and  1500  identify 
the  PU/PE  combinations,  the  first  and  last  year  affected,  and  the  number  of  factors 
affected,  respectively,  for  the  two  combinations.  Following  each  identification  line 
is  the  factor  number  and  the  new  value  for  each  factor  affected.  The  factor  names 
and  their  corresponding  numbers  are: 

1.  base  operations, 

2.  training. 


3.  medical  support. 


4.  recruiting  and  examining, 

5.  individual  support,  and 

6.  onboard  manning. 

The  first  input  of  this  type  overrides  the  base  operations  and  the  recruiting  and 
examining  factors  for  the  AS-11CL  ships  serving  in  the  support  forces  PE,  for  years 
1978-1980.  The  second  input  updates  the  base  operations,  training,  recruiting  and 
examining,  and  onboard  factors  for  the  A-7E  aircraft  serving  in  the  readiness  squad¬ 
rons  PE,  for  years  1978-1984. 

Lines  2000-3100  describe  percentage  manning  factor  updates  for  two  groups  of 
PU/PE  combinations.  Lines  2000  and  2700  identify  the  first  and  last  year  affected, 
the  number  of  PU/PE  combinations  in  the  group,  and  the  number  of  factors  affected, 
respectively,  for  each  input.  Following  these  identification  lines  are  lines  which 
contain  the  PU  and  PE  codes  for  each  PU/PE  combination  in  the  group.  Lines  2100- 
2200  are  for  the  first  input  and  lines  2800-2900  are  for  the  second.  Following  these 
lines  are  lines  which  contain  the  factor  number  and  the  percentage  change  for  each 
factor  affected.  Lines  2300-2600  are  for  the  first  input  and  lines  3000-3100  are  for 
the  second.  The  first  input  of  this  type  overrides  the  base  operations,  training, 
medical  support,  and  recruiting  and  examining  factors  for  the  LSD-28CL  and 
LSD-36CL  ships  serving  in  the  amphibious  support  ships  PE,  for  years  1978-1985. 
The  second  input  overrides  the  medical  support  and  onboard  manning  factors  for 
the  EA-6B  aircraft  serving  in  the  sea  based  electronic  warfare  squadrons  PE  and 
in  the  shore  based  electronic  warfare  squadrons  PE,  for  years  1978-1985. 

Lines  3200-3400  change  the  percentage  of  the  base  operations  force  support  area 
that  varies  with  forces  in  years  1979  and  1980.  Line  3200  identifies  the  force 
support  area  and  the  number  of  years  affected.  The  force  support  area  names  and 
their  corresponding  numbers  are: 

1.  base  operations, 

2.  training, 

3.  medical  support, 

4.  recruiting  and  examining,  and 

5.  individual  support. 
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Lines  3300  and  3400  specify  the  year  and  the  new  variable  percentage.  This  input 
makes  base  operations  20  percent  variable  in  1979  and  25  percent  variable  in  1980. 


Lines  3500-3600  describe  a  group  of  PEs,  not  in  a  force  or  force  support  area, 
which  the  user  wants  to  vary  with  the  forces.  Line  3500  identifies  the  number  of  PEs 
in  the  group,  the  percentage  the  group  is  to  vary,  and  up  to  seven  proxy  identifiers. 

A  proxy  is  any  combination  of  the  seven  force  and  force  support  areas  and  measures 
changes  in  the  variable  requirements.  The  proxy  identifiers  are  numbers  1-7.  The 
numbers  1-5  identify  the  five  force  support  areas  as  shown  above,  the  number  6  is 
the  ship  forces,  and  the  number  7  is  the  aircraft  forces.  The  following  line  contains 
the  PE  code  of  each  member  of  the  group.  This  input  varies  two  logistics  PEs  with  the 
forces.  The  PEs  will  be  25  percent  variable  and  use  ship  forces  and  base  operations 
as  a  proxy. 

Lastly,  line  3700  contains  the  percentage  changes  in  fixed  requirements  by  year. 
Fixed  requirements  are  to  be  increased  by  2.  5,  5. 0,  7. 5,  and  9. 5  percent  in  years 
1980,  1981,  1982,  and  1983,  respectively. 

Figure  C-14  is  a  partial  output  of  one  year's  projection. 
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FIG.  C-l:  SAMPLE  OUTPUT  OF  EXTRACT 


FIG.  C-l:  SAMPLE  OUTPUT  OF  EXTRACT  (Continued) 
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FIG.  C-5:  SAMPLE  INPUT  TO  FACTORS,  AIR  RUN 
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FIG.  06:  SAMPLE  OUTPUT  OF  FACTORS,  SHIP  RUN  (Continued) 
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FIG.  C-6:  SAMPLE  OUTPUT  OF  FACTORS,  SHIP  RUN  (Continued) 
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FIG  C- 10:  SAMPLE  OUTPUT  OF  TOTAL  (Continued) 


FIG.  C-10:  SAMPLE  OUTPUT  OF  TOTAL  (Continued) 
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FIG.  C-ll:  SAMPLE  INPUT  TO  PLANNER,  NO  OPTIONS  USED 


PROJECTION  RUN  OF  THE  PLANNER  MODEL 


ENLISTED  REQUIREMENTS  MILL  BE  COMPUTEO  FOR  6  YEARS 

REQUIREMENTS  are  being  TRANSFORMED  from  rating/pa  ygrace  to  FATIAG/LCS 
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FIG.  C-12:  SAMPLE  OUTPUT  OF  PLANNER,  NO  OPTIONS  USED 
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FIG.  C- 12:  SAMPLE  OUTPUT  OF  PLANNER,  NO  OPTIONS  USED  (Continued) 


FIG.  C-12:  SAMPLE  OUTPUT  OF  PLANNER,  NO  OPTIONS  USED  (Continued) 
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FIG.  C-12:  SAMPLE  OUTPUT  OF  PLANNER.  NO  OPTIONS  USED  (Continued) 
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FIG.  C-12:  SAMPLE  OUTPUT  OF  PLANNER,  NO  OPTIONS  USED  (Continued) 
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FIG.  C-12:  SAMPLE  OUTPUT  OF  PLANNER,  NO  OPTIONS  USED  (Continued) 
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FIG.  C- 12:  SAMPLE  OUTPUT  OF  PLANNER,  NO  OPTIONS  USED  (Continued) 
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FIG  C-12:  SAMPLE  OUTPUT  OF  PLANNER,  NO  OPTIONS  USED  (Continued) 


10UI  (Nil  sue  ftCOUINCNCNIS  V  ON  fTlVI 


FIG.  C-12:  SAMPLE  OUTPUT  OF  PLANNER,  NO  OPTIONS  USED  (Continued) 
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FIG.  C-12:  SAMPLE  OUTPUT  OF  PLANNER,  NO  OPTIONS  USED  (Continued) 


TO  I AL  EKLISICO  REOUIREMFRTS  FCR  fTHH 


©  O  ••  S  •*  IP  >4)  •* 

.*  ir>  ^ 

!M  —  i\.  **  .3  ■»*  M  —  —  M  «  ^  ,i>  fsj  ^  *o  —  •**  "^  M  —  (O 

—  —  N  IT  N  ^ 


W  U.  X  <St  X  UJ  w  X  X 

JonuTimirtori  *  rcruajri/Ti/ivnrtNiMTk-zyt! 


C-40 


FIG.  C-12:  SAMPLE  OUTPUT  OF  PLANNER,  NO  OPTIONS  USED  (Continued) 
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FIG.  C-12:  SAMPLE  OUTPUT  OF  PLANNER,  NO  OPTIONS  USED  (Continued) 
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FIG.  C-  12:  SAMPLE  OUTPUT  OF  PLANNER,  NO  OPTIONS  USED  (Continued) 


FIG.  C-12:  SAMPLE  OUTPUT  OF  PLANNER,  NO  OPTIONS  USED  (Continued) 
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FIG.  C-12:  SAMPLE  OUTPUT  OF  PLANNER,  NO  OPTIONS  USED  (Continued) 
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FIG.  C-13:  SAMPLE  INPUT  TO  PLANNER,  ALL  OPTIONS  USED 
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APPENDIX  D 


NOTES  ON  PROCESSING  ENREP  DATA  FILES 

RENLQUAL/SPECIAL  Enlisted  Billet  File 

1.  The  RENLQUAL/SPECIAL  file  is  created  and  maintained  by  OP-102  on  an 
IBM  machine  which  should  produce  a  9-track,  EBCDIC  file.  The  file  usually  requires 
six  to  nine  reels  of  tape. 

2.  Run  ENREP  routine  EXTRACT.  If  there  are  any  changes  to  the  RENLQUAL/ 
SPECIAL  format,  the  DATA  DIVISION  of  the  input  file  will  need  to  be  changed.  EXTRACT 
will  create  the  RE NLQ UAL/EXTRACT  file,  which  should  use  only  two  reels  of  tape. 

3.  Next,  sort  the  RENLQUAL/EXTRACT  file  by  ACT  code  and  then  by  PE  code, 
using  the  ENREP  SORT  program.  Before  executing  the  SORT  program,  be  sure  that 
lines  3000  and  4300  contain  the  correct  labels  for  input  and  output,  and  that  ACT  pre¬ 
cedes  PE  in  lines  6350  and  6400.  The  SORT  program  will  then  create  the  RENQIJAL/ 
ACTPE  file. 

4.  Finally,  sort  the  RENLQUAL/ACTPE  file  by  PE  code  and  then  by'  ACT  code. 
Again,  be  sure  that  lines  3000  and  4300  contain  the  correct  labels,  but  now  PE  should 
precede  ACT  in  lines  6350  and  6400.  The  SORT  program  will  then  create  RENLQUAL/ 
PEACT.  Although  either  the  RENLQUAL/EXTRACT  or  the  RENLQUAL/ACTPE  file 
could  be  input  to  the  SORT  program,  it  will  execute  faster  if  the  latter  is  used. 

ACT/PE/PU  Dictionary 

1.  This  dictionary  exists  for  ships  and  aircraft  and  is  used  by  many  of  the  ENREP 
routines . 

2.  Each  time  a  new  RENLQUAL/SPECIAL  file  is  received,  run  the  LISTACT  pro¬ 
gram.  It  will  list  every  ACT/PE  combination  on  the  RENLQUAL/ACTPE  file.  Verify 
that  all  ship  and  aircraft  combinations  are  in  the  dictionary,  and  that  all  ACT/PE  com¬ 
binations  in  the  dictionary  are  in  the  file.  Then  the  dictionary  should  be  updated  to 
reflect  any  changes . 

3.  Each  time  a  new  NARM/FORCES  file,  ship  or  aircraft,  is  received,  verify 
that  each  PE/PU  combination  is  in  the  dictionary.  If  not,  it  should  be  added. 

4.  The  dictionaries  must  be  sorted  by  ACT  code,  then  by  PE  code,  and  finally 
by  PU  code.  The  ENREP  DICT/SORT  program  will  do  this  sort  if  it  is  needed.  Be 
sure  that  lines  2700  and  3900  have  the  correct  labels. 
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NARM  Ship  and  Aircraft  Forces  Data 

1.  The  NARM  ship  and  aircraft  forces  files  are  obtained  from  OP-901M.  They 
will  most  likely  be  7-track,  BCD  tapes  with  unblocked  records  191  characters  long. 

2.  Verify  that  they  are  sorted  by  PU  and  then  by  PE.  If  not,  modify  one  of  the 
ENREP  SORT  programs  to  do  it.  Also,  verify  that  the  first  record  is  a  label.  If  not, 
add  one. 

3.  If  the  format  of  these  files  has  changed,  the  format  at  line  8800  for  FORCES/ 

AIR  and  at  line  6700  for  FORCES/SHIP  must  be  modified.  Otherwise,  the  files  are 
ready  to  be  used. 

NARM  Ship  and  Aircraft  Factors  Data 

1.  The  NARM  ship  and  aircraft  factors  file  is  obtained  from  OP-901M.  It  will 
most  likely  be  a  7-track,  BCD  tape  with  unblocked  records  178  characters  long. 

2.  The  file  must  be  sorted  by  PU  code,  then  by  PE  code,  and  finally  by  factor 
sequence  number.  The  ENREP  program  FACTORS/FACSORT  was  written  to  do  this 
sort.  Be  sure  that  lines  2700  and  3900  contain  the  correct  labels.  After  the  sort,  break 
the  file  into  a  ship  version  and  an  aircraft  version,  and  delete  the  first  record,  a  label. 
Note  that  PU  codes  beginning  with  a  "1"  are  ships,  and  those  beginning  with  a  "2"  are 
aircraft. 

3.  If  the  format  of  this  file  has  been  changed,  the  DATA  DIVISION  of  the  FACTORS/ 
FACSORT  program  and  the  format  at  line  52800  in  FACTORS  must  be  changed.  Other¬ 
wise,  the  file  is  ready  to  be  used. 

NARM  Enlisted  Inventory  Projections 

1.  The  NARM  enlisted  inventory  projections  file  is  also  obtained  from  OP-901M. 

It  will  most  likely  be  a  7-track,  BCD  tape  with  unblocked  records  192  characters  long. 

2.  Verify  that  the  tape  is  sorted  by  PE  code  in  ascending  order.  If  not,  modify 
one  of  the  ENREP  SORT  programs  to  do  this.  Also,  verify  that  the  first  two  records 
are  dummy  labels.  If  not,  add  two  such  records. 

3.  If  the  format  of  this  file  has  changed,  the  format  at  line  48300  in  TOTAL  must 
be  changed.  Otherwise,  the  file  is  ready  to  be  used. 

PERS-2x  Actual  Enlisted  Inventory 

1.  At  the  end  oi  each  fiscal  year,  PERS-2x  counts  the  enlisted  inventory  by 
rating,  paygrade,  and  length  of  service.  This  data  file  is  created  by  an  IBM  machine 
and  has  a  9 -track,  EBCDIC  format. 

2.  If  there  has  been  a  change  to  the  tape  format,  the  format  at  line  175500  in  routine 
PLANNER  must  be  changed.  Read  the  comment  at  lines  177700-178600  and  modify  the 
code  which  follows  it  if  that  has  been  changed.  Otherwise,  the  file  is  ready  to  be  used. 
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